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CHAPTER  1 


INTRODUCTION 


This  Validation  Summary  Report  describes  the  extent  to  which  a 

specific  Ada  compiler  conform.s  to  the  Ada  Standard,  ANSI/M1L-STD-1815A. 
This  report  explains  all  technical  terras  used  within  it  and  thoroughly 
reports  the  results  of  testing  this  compiler  using  the  Ada  Compiler 
Validation  Capability,  (ACVC).n  An  Ada  compiler  must  be  implemented 
according  to  the  Ada  Standard,  and  any  implementation- dependent  features 
must  conform  to  the  requirements  of  the  Ada  Standard.  The  Ada  Standard 
must  be  implemented  in  its  entirety,  and  nothing  can  be  implemented  that 
is  not  in  the  Standard. 


Even  though  all  validated  Ada  compilers  conform  to  the  Ada  Standard,  it 
must  be  understood  that  some  differences  do  exist  between 
implementations.  The  Ada  Standard  permits  some  implementation 
dependencies -- for  example,  the  ir.axi.mum  length  of  identifiers  or  the 
maximum  values  of  integer  types.  Other  differences  between  compilers 
result  from  the  characteristics  of  particular  operating  systems, 
hardware,  or  implementation  strategies.  All  the  dependencies  observed 
during  the  process  of  testing  this  compiler  are  given  in  this  report. 

The  information  in  this  report  is  derived  from  the  test  results  produced 
during  validation  testing.  The  validation  process  includes  submitting  a 
suite  of  standardized  tests,  the  ACVC,  as  inputs  to  an  Ada  compiler  and 
evaluating  the  results  ,  The  purpose  of  validating  is  to  ensure 
conformity  of  the  compiler  to  the  Ada  Standard  by  testing  that  the 
compiler  properly  implements  legal  language  constructs  and  that  it 
identifies  and  rejects  illegal  language  constructs.  The  testing  also 
identifies  behavior  that  is  implementation  dependent, 
by  the  “.da  Stanc. ard.  Srx  c^asse.s  or  tests  are  used, 

designed  to  perform:  checks  at  co.mpile  ti.me,  at  link 
execution . 


but  is  permitted 
These  tests  are 
ime ,  and  during 
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1.1  PURPOSE  OF  THIS  VALIDATION  SUMMARY  REPORT 


This  VSR  documents  the  results  of  the  validation  testing  performed  on  an 
Ada  compiler.  Testing  was  carried  out  for  the  following  purposes; 

.  To  attempt  to  identify  any  language  constructs  supported  by  the 
compiler  that  do  not  conform  to  the  Ada  Standard 

.  To  attempt  to  identify  any  language  constructs  not  supported  by 
the  compiler  but  required  by  the  Ada  Standard 

.  To  determine  that  the  implementation-dependent  behavior  is  allowed 
by  the  Ada  Standard 


On-site  testing  was  completed  01-27-89  at  Nashua,  New  Hampshire. 


1.2  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country,  the  AVO 
may  make  full  and  free  public  disclosure  of  this  report,  In  the  United 
States,  this  is  provided  in  accordance  with  the  "Freedom  of  Information 
Act"  (5  U.S.C.  #552).  The  results  of  this  validation  apply  only  to  the 
computers,  operating  systems,  and  compiler  versions  identified  in  this 
report . 

The  organizations  represented  on  the  signature  page  of  this  report  do 
not  represent  or  warrant  that  all  statements  set  forth  in  this  report 
are  accurate  and  complete,  or  that  the  subject  compiler  has  no 
nonconformities  to  the  Ada  Standard  other  than  those  presented.  Copies 
of  this  report  are  available  to  the  public  from: 

Ada  Information  Clearinghouse 
Ada  Joint  Program  Office 
OUSDRE 

The  Pentagon,  Pja  3D-139  (Fern  Street) 

Washington  DC  20301-3081 


or  from: 


Software  Standards  Validation  Group 
National  Computer  Systems  Laboratory 
National  Bureau  of  Standards 
Building  225,  Room  A266 
Gaithersburg,  Maryland  20899 

Questions  regarding  this  report  or  the  validation  test  results  should  be 
directed  to  the  AVF  listed  above  or  to: 
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Ada  Validarior.  Organization 
Institute  for  Defense  Analyses 
ISOl  North  Beauregard  Street 
1  e  a  n  d  r  i  V  A  2  2  311 


1,3  REFERENllS 


1.  Reference  Manual  for  the  Ada  Programming  Language, 
ANSI/M1L-STD-1815A.  February  1983  and  ISO  8652-1987. 

2.  Ada  Compiler  Validation  Procedures  and  Guidelines,  Ada  Joint 
Program  Office,  1  Janiiary  1987. 

3.  Ada  Compiler  Validation  Capability  Implementers '  Guide,  SofTech, 
Inc.,  December  1986. 

4.  Ada  Compiler  Validation  Capability  User's  Guide,  December  1986. 


1.4  DEFINITION  ‘F  TERMS 


.ACVC  TNt  .Ada  Cot.piler  Validation  Capability.  The  set  of  Ada 

prcgrams  that  tests  the  conformity  of  an  Ada  compiler  to 
the  .Ada  programming  language . 

Ada  .All  Ada  Commentary  contains  all  information  relevant  to 

the  Commentary  point  addressed  by  a  comment  on  the  Ada 
Standard.  These  comments  are  given  a  unique 
identification  iiumber  having  the  form  Al-ddddd. 

.Ada  Standard  .AN'SI  MIL- STD- 1315.A .  February  19S3  and  ISO  8652-1987. 


.App^l 


T.,  .Ada  AN.l id.-.tion  Facility.  The  AVF  is  responsible  for 
cctint  _(.>i::pile-r  '.'alidations  according  to  procedures 
ccntainec;  in  the  .Ada  Compiler  Validation  Procedures  and 


AVO  Tile  .Ada  v’alidation  Organization.  The  AVO  has  oversight 

autnority  over  all  .AVF  practices  for  the  purpose  of 
:-..a  in  ta  in  ing  a  uniform  process  for  validation  of  Ada 
compilers.  The  A.A'O  provides  administrative  and 
tcc'nnical  support  for  .Ada  validations  to  ensure 
consiotent  practices. 


Compiler 


rocessor  for  the  .Ada  language.  In  the  context  of 


Failed  test 


Host 

Inapplicable 

test 


Passed  test 


Target 

Test 


Withdrawn 


1.5  ACVC  TE 

Conformity  t 
contains  bo; 
classes; 
identifies  t 
are  execcta’:: 
results  cut 
comp  i  1  a  t  i  o  r. 
because  of  t': 

Class  A  test 
Ada  program.s 
at  run  time, 
to  checri  sec 
words  of  ano 
language)  at< 
A  test  is  p 


tl'.is  report,  a  compiler  is  any  language  processor, 
including  cross-compilers,  translators,  and 

interpreters . 

.'•.n  .ACVC  test  for  which  the  com^piler  generates  a  result 
that  dc.monstrates  nonconformity  to  the  Ada  Standard. 

~t.e  computer  on  which  the  compiler  resides. 

.An  .ACVC  test  that  uses  features  of  the  language  that  a 
compiler  is  not  required  to  support  or  may  legitimately 
support  in  a  way  other  than  the  one  expected  by  the 
test . 

.An  ACVC  test  for  which  a  compiler  generates  the  expected 
result . 


The  coir.puter  w-hich  executes  the  code  generated  by  the 
compiler . 

■A  program,  that  cnecks  a  compiler's  conformity  regarding 
a  particular  feature  or  a  combination  of  features  to  the 
Ada  Standard.  in  the  context  of  this  report,  the  term 
is  used  to  designate  a  single  test,  which  may  comprise 
one  or  r.iOre  riles. 

An  .ACVC  test  found  to  be  incorrect  and  not  used  to  check 
test  conformity  to  the  Ada  Standard.  A  test  may  be 
incorrect  because  it  has  an  invalid  test  objective, 
fails  CO  meet  its  test  objective,  or  contains  illegal  or 
erroneous  use  of  the  language. 


wnicr 


;.;tPciSUr6U  i :  rs  j.»iG  v  L 

ia  progra.ms  structured  into  six  test 
^l.e  rirst  retter  or  a  test  name 
■clones.  Class  A.,  C,  D,  and  E  tests 
.x-.m  units  are  used  to  report  their 
's  E  tests  are  expected  to  produce 
srs  are  expected  to  produce  errors 
am.  library  is  used  at  link  time. 


s  er.;-.-.re  the  successful  compilation  and  execution  of  legal 
•..’i;:.  'lortain  language  constructs  which  cannot  be  verified 
ir  are  r.o  explicit  program,  com.ponents  in  a  Class  A  test 
:a:'.ti;s.  Ear  example,  a  Class  A  test  checks  that  reserved 
t:.er  language  (  ■:.  th.er  th.an  those  already  reserved  in  the  .Ada 
5  r.ot  treated  as  reserved  words  by  an  Ada  compiler.  A  Class 
assed  if  no  errors  are  detected  at  compile  time  and  the 


i  -  a 


program  execute  ;  lo :L;ce  a  PASSED  message. 

Class  B  rests  t  A  a  compiler  detects  illegal  language  usage. 

Class  B  tests  ate  '..ot  e:.ecutcjblt .  Each  test  in  this  class  is  compiled 
and  tr.e  resultit.j:  cc  :;-.p  i  la  t  io;.  listing  is  examined  to  verify  that  every 
syntax  or  sc;:..r.ti.  l  r;  .''i'  in  t'n.e  test  is  detected.  A  Class  B  test  is 
passed  it  e-.-et.  .llt  c.-.l  con.s t f.u' t  that  it  contains  is  detected  by  the 
compiler . 

Class  C  tests  cn.c-ci;  the  r.:;-.  time  system  to  ensure  that  legal  Ada 
program.s  car.  be  correctly  compiled  and  executed.  Each  Class  C  test  is 
se  If  -  check!  I'.g  and  prod'.n'es  a  P.ASSED,  FAILED,  or  NOT  APPLICABLE  message 
indicating  the  result  v.-hen  it  is  executed. 

Class  D  tests  check  th,e  com.pilation  and  execution  capacities  of  a 
compiler.  Sir.ce  tnere  are  no  capacity  requirements  placed  on  a  compiler 
by  the  .Ada  Stand.srd  for  so:v.e  parameters -- for  example,  the  number  of 
identifiers  r  e  rm.  i  t  tiu;  ir.  a  com.pilation  or  the  number  of  units  in  a 
librarv--a  cc"til<.r  ::  a'.’  rc-tuse  tn  compile  a  Class  D  test  and  still  be  a 
conforming  ccmr  iic  r.  To.err  tore .  if  a  Class  D  test  fails  to  compile 
because  th.e  Ctucacit-.'  :  f  zhe  compiler  is  exceeded,  the  test  is  classified 
as  inappl  icali  Ir  .  If  a  Class  h  test  compiles  successfully,  it  is 
self -check.ir.t  .u'.d  rr-d.cces  a  P.ASSED  or  FAILED  message  during  execution. 

Class  E  tests  are  expected  to  execute  successfully  and  check 
implementaticn-denender.t  options  and  resolutions  of  ambiguities  in  the 
Ada  Standard.  Ea.ch  Class  E  test  is  self -checking  and  produces  a  NOT 
APPLICABLE,  r.-'-.SSED,  or  F.hlLED  message  when  it  is  compiled  and  executed. 
However,  ti'.e  Ada  Standard  term.its  an  i.mplementation  to  reject  programs 
containing  some  features  addressed  by  Class  E  tests  during  compilation. 
Therefore,  a  11:;:-.-  E  test  Is  passed  by  a  compiler  if  it  is  compiled 
successfullv  .-.nd  .xetutes  to  produce  a  P.ASSED  message,  or  if  it  is 
rejected  by  tl.e  t  itilui'  f.-r  .u;  allowable  reason. 

e  ,'.r  Illegal  Ada  program:s  involving 
:r  .u'e  c-^tected  and  not  allowed  to 
::  riled  separatel'.’  and  execution  is 
if  it  is  re'oeted  at  link  time- -that 
iir.  pregra.T.  must  generate  an  error 
laratior.s  in  the  main  program  or  any  units 
are  elaborated.  In  some  cases,  an 
detect  errors  during  com.pilation  of  the 

Two  librarr-  ..r.i:.-.  t'.-.e  packare  RZrCRT  and  the  procedure  CHECK_FILE, 

support  th.e  .sc  1 :  -  '..eching  fvatu.res  of  the  executable  tests.  The  package 
E.EPOr.T  t  ro'.-ihiv':  •  . ::-chani..:r  v.h.ich  executable  tests  report  PASSED, 
FAILED,  cr  l.l'l  ;  1  LI '.-.i  LE  r-.:-..lts.  It  also  provides  a  set  of  identity 
functions  use;:  t'  ncfi.;t  cc:.-.  c::;.;.iier  optim.itations  allowed  by  the  Ada 

Standard  th.at  c  i  r  c  u:::\'-c  r.  t  a  test  objective.  The  procedure 

CHECK  FILE  is  -.Sv'.  to  the'.:  th.e  c^-r.tents  of  text  files  written  ty  some 


C  1 3,  S  S 


referenced  by  irain 

i.Tplen^er.rar ion  legiri:: 

test . 


of  whe  Class  C  ".srs  ros  1-  of  the  Ada  Standard.  The  operation 

ot  REPORT  and  Ci; ■-'.CK_.- 1 LE  is  cht-CKcd  .ov  a  set  of  executable  tests.  These 
tests  produce  nt-ssages  that  <;.'c  r->:a:y.ined  to  verify  that  the  units  are 
operating  correctlv.  If  thes^  v.r.its  are  not  operating  correctly,  then 
the  validatici;  is  not  t  tcc-ptc- a  . 

The  text  of  eo,  i  : -.-.ot  in  'ne  '.C  rollows  conventions  that  are  intended 
to  ensure  t'r..it  '.'.-e  te,  .-.rv  ie^.  ..,nably  portable  without  modification. 
For  example,  t..-.  ii.a'i-.e  ■  e  oi  only  the  basic  set  of  55  characters, 

contain  liiu  s  ::  ,n;i:ni;;;:  ictigth  of  72  cliaracters,  use  small  numeric 

values,  and  place  features  that  may  not  be  supported  by  all 
implementations  in  separate  tests.  However,  some  tests  contain  values 
that  requii'ir  tiie  test  to  be  customized  according  to 
implementa  t  i  or.  -  S'.'e  c  i  f  i  c  ’.x-.  lues -- for  example,  an  illegal  file  name.  A 
list  of  the  values  used  for  th.is  validation  is  provided  in  Appendix  C. 

A  compiler  ;:;ust  correctlv  process  each  of  the  tests  in  the  suite  and 
demonstrate  conformitv  to  tiie  Ada  Standard  by  either  meeting  the  pass 
criteria  given  for  the  test  c-r  dv  showing  that  the  test  is  inapplicable 
to  the  i  m  p  1  e  t.ie  n  t  a  t  i  on. .  The  applicability  of  a  test  to  an 

i.mplementaticr.  is  considered  each  time  the  implementation  is  validated. 

A  test  that  is  in.appl  icable  for  une  validation  is  not  necessarily 
inapplicable  for  a  s .=  e event  •.•aliriation.  Any  test  that  was  determined 
to  contain  ..r.  i.l-.  .'.h.  l..:..--,n..r^  construct  or  an  erroneous  language 

construct  •..•itl,o.ra-..n.  fro;:.  t;.e  .-.T.'C  and,  therefore,  is  not  used  in 

testing  a  cot, tiler.  T.'.e  tests  •.-.•ithdrawn  at  the  time  of  this  validation 


'HATTER.  2 

:  o: :  F I  t  trt.t  :  o;;  i  ttori-iat  i  ox 

2.1  COXFIGURATIOX  TESTEO 

The  candidate  coiT’pilatiot'i  system  for  this  validation  was  tested  under 
the  follovint  coi'if iguration: 

.AM  .A da  Version  2.0 
1 .  10 

SM.'  :2:si  .10034 

VAJ';  ssoc 

Systc-ir, ;  VMS,  A’ersion  5.0 

c:  ’  Ml  DV  t)  6  S 

*  a  r  0  c  w' : "  ',1  z  *..■  'z  1 


Compiler : 

C  6  r  z  1  r  1  c  ui  t  'A  . '  lU’.'  !■'  o  v  : 
Host  CoiT.curer : 

/.'ach i r.’t.' : 

■_  r  e  r  a  1 1  r.  g 
liemorv  Sit 


Co.TT. i  ta  t  ior.s  .'^e  tv.-ork  . 


RC-25  REMOVABLE  DISK 


2.2  IMPLEMENT.-\TION'  CH.<\RACTERISTICS 


One  of  the  punpcse;  of  valitinting  compilers  is  to  determine  the  behavior 
of  a  compiler  ;  r.  rhose  areas  of  the  Ada  Standard  that  permit 
implementations  to  differ.  Class  D  and  E  tests  specifically  check  for 
such  implementat ior.  differences.  However,  tests  in  other  classes  also 
characterise  an  i.;  pleir.er.taticn.  The  tests  demonstrate  the  following 
characteristics  : 


s.  CcipdCi-^-ic^s  . 

(1)  The  coii'.piler  correctly  processes  a  compilation  containing 
'^23  '.-ariables  in  the  same  declarative  part.  (See  test 

d2P''G;k.  '> 

(2)  The  coit.piler  correctly  processes  tests  containing  loop 
s ta tet:-:  nts  n.ested  to  65  levels.  (See  tests  D55A03A.  .H  (8 
tests  I  .  ) 

''3'  Th.e  cor.'.pilc-r  correctly  processes  tests  containing  block 
St.-. tv  ...ur.t.i  r.<^cted  to  65  levels.  (See  test  D56001B.) 

Th.e  compiler  correctly  processes  tests  containing  recursive 
procedures  separately  compiled  as  subunits  nested  to  17 
levels.  i^See  tests  D64005E.  .G  (3  tests).) 


b  .  ?  r  e  a  e  t  r  r.  e  c.  t p  e  s  . 

'1'  Th.  is  imp  leiv.en.  ta  t  ion  supports  the  additional  predefined 
typvs  S:;’:?~_:;;TEtER,  SH0RT_SH0RT_INTEGER,  L0N'G_FL0AT,  and 
i.i;T.'_L3!.'G  _FL  j.-.T  in  the  package  STANDARD.  (See  tests 


Ti'.e  order  it.  ■•■h.ic?;  ■.  :::'r~ss  ior.s  are  evaluated  and  the  time  at 
v.nich  -  rr.;  ir.  t.i  .l.ec'r.ed  are  not  defined  by  the  language, 

■■.'nile  t';'.--';  .-.3'.'3  tests  do  r.ot  specifically  attem.pt  to  determine 
the  order  of  evaluation  of  expressions,  test  results  indicate 
the  following; 

'  1  ,!  .-'.ll  of  the  d-fault  initialisation  expressions  for  record 

; c::,pr o.-sr.ts  ar-o  --•.■coluated  before  an^-"  value  is  checked  for 
1  rsh.  ip  in  c-:;.ponc-nt '  s  subtype.  (See  test  C32117A.) 

'2  }  s :  i  cnt.s  f  or  subf.'pes  are  performed  with  the  same 


(See  test  C35712B.) 


precision  as  the  base  type. 

'.tier,  'c.ses  no  extra  bits  for  extra  precision 
c-xtra  l.'its  for  extra  range.  (See  test 

(■^)  I'ii'.hRT  ,'_r.rJ\OR  is  raised  •.-.•hen  an  integer  literal  operand  in 
a  coniparisoii  or  ireirbership  test  is  outside  the  range  of  the 
base  tvpe .  ;.See  test  C-45232A.) 

(5)  .N’UMERI  C_ERROR  is  raised  when  a  literal  operand  in  a 
fixed-point  comparison  or  membership  test  is  outside  the 
range  of  the  base  type.  (See  test  C45252A.) 

(6)  Ui'iderflow  is  not  gradual.  (See  tests  C45524A..Z  (26 

tests.)  .  ) 


d.  Rounding. 

The  motlioci  by  ■•■.•hich  values  are  rounded  in  type  conversions  is 


no  t 

spec 

defi:ied  by  che 
ir  ic.*  1  ly  .-.zzc-ivx.z 

language.  While  the  ACVC  tests  do 

to  determine  the  method  of  rounding, 

not 

the 

ce  s  c 

.C  1 C  Cv 

tiit:;  to.w.uowing; 

(1) 

i.kie  ir;e dice  useo 

cero.  'See  cesc 

for  rounding  to  integer  is  round  away 
s  C46012.A..2  (26  tests).) 

from 

(2) 

The  ;:;ethod  used 
auav  fron;  zero. 

for  rounding  to  longest  integer  is  round 
(See  tests  C46012.A..Z  (26  tests).) 

hiOd  •.•■sed  for  rounding  to  integer  in  static  universal 
xt  r -t  s  s  i  c  n.  s  is  round  awav  from  zero.  (See  test 


(3) 


.  niG 
H'.d 


iir.p.-.  [ren: 
uses  all 


STANDARD  .  INTEGER'  EAST 
imolementa  ticn : 


:o  raise  NUMERIC_ERROR  or 
ir.g  a  '  LEI^GTH  that  exceeds 

For  this 


it'd.' or  S  YSTr..*!  .  MAX  I  NT. 


.)  Teclaratior.  or  ar.  arrav  type  or  subtype  declaration  with 
more  than  SYSTEM . M-'2\_INT  components  raises  NUMERIC_ERROR. 


S  t .  C'  Z  £  S  Z  C  0  D  d  0  0  rv  .  ) 

■  2)  error  is 

raised  when 

an  array 

type 

with 

INTE  -ER' E:1ST  -  1  t 

Oaponenzs  is 

declared. 

(See 

test 

(2)  NUMERIC  ERROR  is 

raised  when 

an  ar  ray 

type 

with 

SYSTEi:  .  MAX  I  NT  r  2 

coirponenzs  is 

declared. 

(See 

test 
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C36:u2B. ; 


(4)  A  packed  BOOLEAN'  array  having  a  'LENGTH  exceeding 
IN’TEGER '  LAST  raises  NUMERIC_ERROR  when  the  array  type  is 
declared.  '.See  test  C52103X.) 

(5)  .A  tacked  two-dimensional  BOOLEAN  array  with  more  than 
INTEGER '  LAST  components  raises  KUMERIC_ERROR  w’hen  the  array 
sabtype  ■’.s  declared.  (See  test  C52104Y.) 

(6)  A  null  array  with  one  dimension  of  length  greater  than 
INTEGER' last’  may  raise  NUMERIC_ERROR  or  CONSTRAINT_ERROR 
either  when  declared  or  assigned.  Alternatively,  an 
implementation  ir.ay  accept  the  declaration.  However, 
lengths  must  match  in  array  slice  assignments.  This 
implementation  raises  NUMERIC_ERROR  when  the  array  type  is 
declared.  iSee  test  E52103Y.) 

(7)  In  assigning  one  -  dimensional  array  types,  the  expression  is 
evaluated  in  its  entirety  before  C0NSTRAINT_ERR0R  is  raised 
when  checking  whether  the  expression ' .s  subtype  is 
compatible  with  the  target's  subtype.  (See  test  C.S2013A.) 

(S)  In  assigning  two-dimensional  array  types,  the  expression  is 
not  evaluated  in  its  entirety  before  CONSTRAINT_ERROR  is 
raised  when  checking  whether  the  expression's  subtype  is 
com.patible  with  the  target's  subtype.  (See  test  C52013A.) 

f.  Discriitina ted  types. 

(1)  In  assigning  record  types  with  discriminants  ,  the 
ex]^ression  is  evaluated  in  its  entirety  before 
G0'..'STR..AIN'T_ER.R0R  is  raised  when  checking  whether  the 
c  p  r  e  s  s  i  on  '  s  subtype  is  compatible  with  the  target's 
subtype.  ‘See  test  C52013.A.) 


a  multi  -  dim.ens  ional  aggregate,  the 
that  all  choices  are  evaluated  before 
in.dex  type.  (See  tests  CL3207A  and 


In  ti  e  e-.-aluation  of  an  aggregate  containing  subaggregates, 

•  •.11  ciToiccs  are  evaluated  before  being  checked  for 
ider.M-.l  :>ou:v:s  .  Sec  test  E43212B.) 

GII.h-i7LAl.'.'r_E;'.;\IR  is  raised  'oefore  all  choices  are  evaluated 
■.  i'.er.  a  'Dour.d  in  a  non-null  range  of  a  non-null  aggregate 
vines  not  belong  to  an  index  subtype.  (See  test  EA3211B.) 

0  -Ct 


h.  Pragmas. 


(1)  The  pragma  INLIN'E  is  supported  for  functions  or  procedures. 
(See  tests  1_a3004A..B  (2  tests),  EA3004C..D  (2  tests),  and 

CA3;''r..E.  .  F  (2  tests)  .  ) 

i  .  oe  ne  r  1  c  iD . 

(1)  Ge;.^ric  s  pe  c  i  t  i  c  a  t  i  ons  and  bodies  can  be  compiled  in 

separate  compilations.  (See  tests  CA1012A,  CA2009C, 

CA2009F,  BC3204C,  and  BC3205D.) 

(2)  Generic  unit  bodies  an.d  their  subunits  can  be  compiled  in 
separate  compilations.  (See  test  CA3011A.) 

(3)  Generic  subprogram  declarations  and  bodies  can  be  compiled 
in  Sr parate  compilations.  (See  tests  CA1012A  and  CA2009F.) 

(4)  Generic  library  subprogram  specifications  and  bodies  can  be 
coir.piled  in  separate  compilations.  (See  test  CA1012A.) 

(5)  Generic  non- library  subprogram  bodies  can  be  compiled  in 
Sep. -.rate  c  o;:.  p  i  la  t  i  ons  from  their  stubs.  (See  test 
CA20GVF. ) 

(6)  Gen.eric  package  declarations  and  bodies  can  be  compiled  in 
separate  compilations.  (See  tests  CA2009C,  BC3204C,  and 

3C3205D. ^ 

(7)  Generic  library  package  specifications  and  bodies  can  be 
coir.piled  in  separate  compilations.  (See  tests  BC3204C  and 


Ger.eric  non- library  package  bodies  as  subunits  can  be 
-o.'.piled  in  separate  co:.-:pilations .  (See  test  CA2009C.) 

ric  •.•.n.it  ’  rdies  and  their  subunits  can  be  compiled  in 
■.rar.;tv  :c::  r  i  1  a  t  i  ons  .  See  test  CA3011A.) 


(1)  The  package  5  EQUEFTI.AL_IO  can  be  instantiated  with 

unconstrained  array  types  and  record  types  with 

d  i  s  c  r  i  i:.  i  na  r.  t  s  •.-.■ithout  defaults.  (See  tests  AE2101C, 

2)  21. e  package  2iI?,EGT_20  cannot  be  instantiated  with 

'■.'..constrained  array  types  and  record  types  with 

c;  i  sc  r  i  rr  i  nan  t  s  •.•.'ithout  defaults.  (See  tests  AE2101H, 

EE2A01j,  and  EE2-01G. ) 


(3) 

Mode 

IM  FILE  is 

s-.spported  for 

the 

operation 

of 

CREATE 

for 

SEQU 

EMT1AL_I0. 

S( e  test  CE2102D. ) 

(-) 

Mode 

IM  FILE  is 

supported  for 

the 

operation 

of 

CREATE 

for 

17 

"T_I0.  'So-c- 

rlst  f:E2102I.) 

(5) 

Mode 

.supported  for 

the 

operation 

of 

CREATE 

for 

c  e  t! 

riles. 

e  test  CE31C2E. 

) 

(6) 

DELE 

TE  opera ti or 

'.s  are  supported  for  SEQUENTIAL 

o 

(See 

test  ce:io2;':.') 

(7)  RESET  operations  of  OUT_FILE  to  IN_FILE  are  supported  but 
RESET  operations  of  IN_FILE  to  OUT_FILE  are  not  supported 
for  SEQUENTIi'\L_IO .  (See  test  CE2102G.) 

(8)  RESET  and  DELETE  operations  are  supported  for  D1RECT_I0 
v.ith  the  exceptions  that  RESET  from  IN_FILE  to  _OUT_FILE 
and  RESET  frc;r.  I.\'_FILE  to  INOUT_FILE  are  not  allowed.  (See 
test.?  :E210:r  and  CE2102Y.) 

."ESET  and  TERETE  operations  are  supported  for  text  files. 
te-..t..  .2.L:_r..G  ,2  tests),  CE310LC,  CE3110A,  and 


(10)  Cverv.-f iting  to  a  sequential  file  truncates  to  the  last 
c:^'..i::en. t  '■•■ritter. .  'See  test  Cr.2208B.) 

(11)  Ter.torarv  sequential  files  are  not  given  names.  (See  test 
,  12(  To n.torar;.’  cirett  files  are  not  given  names.  (See  test 


.rr.al  file  can  be  associated  witn  each 
S'..-  :u-t;'.tial  files  when  reading  onlv 
r*. ,  .  E  '3  tests;,  CE2102L,  CE2110B,  and 

15)  Lore  t'r.av.  one  internal  file  can  be  associated  with  each 
e:-;tvrnal  file  ter  direct  files  when  reading  only  .  (See 
t'lets  CE2I0:F..H  3  tests),  CE2110D  and  CE2111H.) 

!•:  )  I'.rro  or.-e  in.ternal  file  can  be  associated  with  each 

•  nt-,  rni'l  file  tor  text  files  when  reading  only.  (See  tests 
CE2  i  1 1/. .  .  £  ',5  teets.i.  TE21143,  and  CE3115A.) 


CHAPTER  3 


TEST  INFORMATION 


3.1  TEST  RESULTS 

Version  1.10  of  r'nc-  .ACVC  comprises  3717  tests.  When  this  compiler  was 
tested,  43  tests  had  been  withdrawn  because  of  test  errors.  The  AVF 
determined  that  150  tests  iv-ere  inapplicable  to  this  implementation.  All 
inapplicable  tests  were  processed  during  validation  testing. 
Modifications  to  the  code,  processing,  or  grading  for  4  tests  were 
required  to  successfully  demonstrate  the  test  objective.  (See  section 
3.fi.) 

The  AVF  concludes  that  the  testing  results  demonstrate  acceptable 
conformity  to  the  .Fda  Standard. 


3.2  SUMMARY  OF  TEST  RESULTS  BY  CL.ASS 


RESULT 

A 

TEST 
P,  C 

CLASS 

D  E 

J, 

TOTAL 

Passed 

129  1132  2173 

17 

26 

46 

3523 

Inapplicable 

0 

6  143 

0 

2 

0 

151 

1 

2  34 

0 

6 

0 

43 

130  : 

.140  2250 

1  > 

34 

46 

3717 
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3.3  SUMJ-IARY  OF  TFST  RES’JLTS  BY  CriAPTER 

RESULT  CHAPTER  TOTAL 

_  :  _ 3  ^  5  6  7  8  9  _10  _n  _12  _13  _14  _ 

Passed  L--  -id  2-5  172  99  162  331  137  36  252  296  275  3523 

Inapplicable  3  1  19  3  C  0  4  2  0  0  0  73  46  151 

Wdrn  11000001001  35  4  43 

TOTAL  213  650  6S0  24S  172  99  166  334  137  36  253  404  325  3717 


3.4  WITHDRAUN  TESTS 

The  following  43  tests  were  withdrawn  from  ACVC  Version  1.10  at  the  time 
of  this  validation; 


A39005G 

E97102E 

3C3C093 

CD2.A62D 

CD2A63A 

CD2A63B 

CD2A63C 

CD2A63D 

CD2A66A 

CD2A663 

CD2A66C 

CD2A66D 

^  ^  »  -7  7  ^ 

'•w  w  .  J-  Z,' 

CZ2rS3C 

CD2A73D 

CD2A76A 

CD2A76B 

^ 

/  00 

CZ2k7  6D 

CD2A31G 

CD2A83G 

CD2AS4M 

CD2A84N 

CD2315C 

C22D113 

CD50073 

CD50110 

CD7105A 

CD7203B 

CD72043 

CI)7205C 

CD7205D 

CE2107I 

CE3111C 

CE3301A 

CE34113 

—  -«i  O  ^  .  s 

^  A  »  ^ 

—  -7  /  V  V-'  — 

ED7005C 

ED7005D 

ED7006C 

ED7006D 

.Doenci:: 

D  for  the 

reason  t 

hat  each 

of  these 

tests  was 

Sore  tests  d;  t  srrlv  to  all  compilers  because  they  make  use  of 
features  that  a  c  r.tiler  is  not  required  by  the  .Ada  Standard  to  support. 
Others  may  ce;-;.h  on.  the  result  of  another  test  that  is  either 
inapplicable  n  1  t  h.  d  r  awn. .  The  applicability  of  a  test  to  an 
i.mplementaticn  is  considered  each  time  a  validation  is  attempted.  A 
test  that  is  inapplicable  for  one  validation  attempt  is  not  necessarily 
inapplicable  for  a  subsequent  attem.pt.  For  this  validation  attempt,  150 
tests  were  inapplicable  for  the  reasons  indicated: 


C24112U.  .Y  (3  tests)  har-e  source  lines  that  exceed  the  VAX  Ada 
im.plem.entaticn  limit  of  255  characters. 

C3  5  702.A  and  SSIIOIT  (2  tests)  are  not  applicable  because  this 
imple.m.entation  supports  no  predefined  type  SH0RT_FL0AT. 


T  0 


C45531M..P  u-cl  C^:53:M..P  (  8  tests) 

this  implementation  does  not  support 
base  tvpes  required  by  these  te:s ts. 


are  not  applicable  because 
the  particular  fixed  point 


C45:31C,  C^530-.C,  C-53C2C,  C^5503C,  C45504C,  C45504F,  C45611C, 
C456  13C,  C-i561-*C,  C-3631C,  d^5632C,  B52004D,  C55B07A,  B55B09C, 
B86001U',  and  CD7101F  (16  tests^  are  not  applicable  because  this 
implementvit ion  does  r.ot  support  a  predefined  type  LONG_INTEGER . 

B860O1Y  is  not  applicable  because  this  implementation  supports  no 
predefined  fixed- point  type  other  than  DURATION. 


C86C01F  is  not  applicable  because,  for  this  implementation,  the 
package  TEXT_IO  is  dependent  upon  package  SYSTEM.  This  test 
recompiles  package  SYSTE.M,  making  package  TEXT_IO,  and  hence 

package  REPORT,  obsolete. 


B91001H  is  not  applicable  because  this  implementation  does  not 

support  address  clauses  for  task  entries  (Al-325).  Typically,  the 
address  of  t'ne  code  to  he  executed  when  an  interrupt  occurs  is 

stored  in  an.  interrupt  vector  at  some  particular  memory  location. 
However,  tlv:-  '.'.TS  operating  system  uses  asynchronous  system  trap  (or 
AST)  for  a  scrtware  interruot .  The  ASTs  receive  dynamically  the 

address  of  r';..-  code  to  executed  when  an  interrupt  occurs  as  a 
parair.eter  to  a  svsteir;  s.ervice  routine  when  a  service  is  requested. 

C96005B  is  not  applicable  because  there  are  no  values  of  type 

DUFuTTIOT"  B.-'-.SE  t’n.at  are  outside  the  range  of  DURA.TI0N. 

CD10C9C,  CD2.44l.r,  CD2A41B.  CD2A41E,  CD2A42A.  CD2A42B,  CD2A42C, 
CD:a:*2D,  C22.'-.-2E.  CDE.A-EF.  CD2.A42G,  CD2A42K,  CD2A42I,  and  CD2A42J 
(14  tests'i  are  not  applica'ule  because  this  implementation  does  not 
support  .short;- n.c-d  ;ran.ti£sa  and/or  exponent  lengths  for  floating 


-T  3  tests)  are  not  applicable  because 
t  ttif.ing  ET-'.ll  for  a  derived  fixed  point 
if  t:.e  rerultir.g  .model  numbers  are 


32:/.:_..  ;t:;.32H,  C22a5-:.C,  CD2A54D,  and  CD2A54H  ( 
t  i ;  t :  .it-  r.  t  t  ^-.r:  1'  -l-c  necause  t'nese  tests  contain  site 

retrcser.triti  r,  clauses  “.'..  t  are  illegal  for  certain  derived  fixed- 
point  subtvpes  due  to  t!.-e  particular  base  type  selected  by  the 

rirpiementat.on . 

CDlAflA.  ""/.)a:1E.  i:.:.-'-.',!:.  Cj2a61D,  CD2A61F,  CD2a61H,  CD2A61I, 

Y.  .'..■.l  if..  T1  i:..  CD2a62a,  CD2A623,  CD2a62C,  CD2A64A, 

C22A.6-L,  D .  CD2:^.65A,  CD2A65B,  CD2a6:'',  -r.d  CD2A£5D 

('ll  test.'  are  r.ot  applicable  because  this  implementation  does  not 
support  ;  .;ci-.ir.:-;  !;v  t.eans  of  a  length  clause  for  an  array  type. 


CD2A71A,  CD2r.71B,  CD2A71C,  CD2A71D.  CD2A72A,  CD2A72B,  CD2A72C, 

CD2A72D,  CD2A74A,  CD2A74B.  CD2A74C,  CD2A7AD,  CD2A75A,  CD2A75B, 

CD2A75C,  and  CD2A75D  (16  rests)  are  not  applicable  because  this 
implementation  does  not  support  packing  by  means  of  a  length  clause 
for  a  record  tvpe . 

CD2AS4B.  CD:aS-,C,  CD2aSuD,  CD2a84E,  CD2A84F,  CD2A84G,  CD2A84H, 

CD2AS4I ,  and  CD2AS4L  (10  tests)  are  not  applicable  because 

this  implcirenracion  does  not  support  biased  pointer 
representations . 

CD2B15B  is  liOt  applicable  because  the  LRU  13.7.2(12)  states  that 
T '  ST0RAGE_S  I  Z£  for  an  access  type  or  subtype  T  "yields  the  total 
number  of  storage  units  reserved  for  the  collection  associated  with 
the  base  type  of  T."  The  meaning  of  "total  number  of  storage  units 
reserved"  is  open  to  interpretation  and  it  is  possible  for  an 
implem.entatior.  to  return  one  of  two  values:  the  number  of  bytes 

requested  (.and  reserved)  or  the  number  of  bytes  actually  allocated. 
This  compiler  iir.p lements  the  former. 

CE2102D  is  I'.ot  applicable  because  this  implementation  supports 

CREATE  with  :::_FILE  mode-  for  SEQUENTIAL_IO . 

CE21G2E  is  not  applicable  because  this  im.plementation  supports 

CRE.ATE  with  0UT_FILE  mode  for  SEQUEKTlAL_IO . 

CE2102F  is  not  applicable  because  this  implementation  supports 

CREATE  with  I;;DUT_FILE  mode  for  DIRECT_I0. 

CE2102I  is  not  applicable  because  this  implementation  supports 

CRE.ATE  ••■.•ith  Ih_FILE  mode  for  DIR.ECT_I0. 

CE2102J  is  I'.ot  applicable  because  this  implementation  supports 

CREATE  with  Oi:“_FlLE  mode  for  DIRECT_I0. 

CE21C2h  is  -.'.ct  .•■ttlicable  because  this  implementation  supports  OPEN 

CEllO^l  1;:  '..tt  apt  i  ica'ole  because  this  implem.entation  supports 

CEllbl?  i.s  ’..ot  applic.ible  because  this  implementation  supports  CPEN 
with  GUT_.-ILE  :r.od~  for  5E11'ENTI.AL_I0 . 

CE2102Q  is  not  applicable  because  this  im.plementation  supports 

P.ESET  with.  CTr_FILE  mode  for  SEQUENTIAL_IO . 

CE21C1R  is  ;.ot  applicable  because  this  im.plementation  supports  OPEN 
with  i;AbT_FlbE  :rorie  for  jrRECT_I0. 

CE2102S  is  n.ot  applicable  because  this  implementation  supports 

RESET  with  Ib'ObT  FILE  m.ode  for  DIRECT  10. 


(")  i')  n.  v"^ 


CE21C2T  is  nor  applicable  because  this  implementation  supports  OPEN 
with  IE  FILE  iroce  for  DIRECT_IO. 

CE21w2L  is  r.or  applicable  because  this  implementation  supports 

RESET  v;i:l-  :E_F:LE  n'ocie  for  D:RECT_10. 

CE21C1'.'  i=  ’..or  applicaijlu  because  this  implementation  supports  OPEN 
with  TTT_r:LE  cuKle  for  D:RECT_10. 

CE2102W  is  nor  applicable  because  this  implementation  supports 

RESET  with  OTT_FILE  mode  fer  DIRECT_IO. 

CE210rA  is  inapplicable  because  CREATE  with  IN_FILE  mode  is  not 


supported  by  rl.is  in. nit  mentation  for  SEQUENTIAL_I0 . 

CE2105B  is  inapplicable  because  CREATE  with  IN_F1LE  mode  is  not 
supported  by  rliis  implttn-entation  for  DIRECT_IO. 

CE210:’B  CE210^E,  CE2107G.  CE2107L.  CE2110B,  CE2110D,  CE2111H, 

CE311LB,  CE3111D,  CE3111E,  CE311LB,  and  CE3115A  (12  tests)  are  not 
applicable  because  tb.is  implementation  does  not  allow  more  than  one 
assoc ia t ior.  for  OUT_FILE  or  I’.'OUT_FILE  in  combination  with  mode 
IE_FILE  .r  aiiothtur  ;;.ode  GUT_FILC  or  INOUT_FILE  (mixed  readers  and 
writers  ^r  multiple  writers;  unless  a  non-default  FORM  string  is 
specified.  The  proper  exception  is  raised  when  multiple  access  is 

a  C  u  Silp  r 6  C’.  . 

CE2iC7C,  :E21."0,  CE2107H.  CE2108B,  CE2108D,  and  CE3112B  (6  tests) 
are  not  applic.ible  because  this  implementation  does  not  support 
tem.pcrar'.  r.ac.es  for  files  and  the  NAME  function  raises  USE_ERR.OR  if 
called  .f.'.'.'-'n  a  file  •-•.nder  the  term.s  of  Al-000d6. 

2E.1111;'  .“L_llll  ere  n.'-'t  .-ptlicabie  because  this  implementation 

does  r.ot  ..ll'  "  "he  iroce  o:  t’xe  file  to  be  changed  from  IN_FILE  to 


.'E--  ■■  et"  1  i : bee,  use  this  implementation  does  not 

1:  .  t :.n t i a t 'L  n  "f  71RECT_IC  with  unconstrained  record 
f-'te;  .  ■.  le.rer.  t  site  is  specified  in  the  FORM 

para.m.eter  cr  tn.e  CF,EATE  procedure.  This  instantiation  is  rejected 


this  implementation 


this  implementation 


this  implementation 


supports 


supports 


supports 


CE3102J  is  not  applicable  because  this  implementation  supports  OPEN 
with  IN_FILE  iiioc;e  . 

CE3102K  is  not  applicabl.,'  because  this  implem.entation.  supports  OPEN 
with  0UT_FILE  mode. 

CE3109A  is  inapplicable-  because  text  file  CREATE  with  IN_FILE  mode 
is  not  supported  bv  tb.is  i'.v.ple'.ver.tation . 

EE2j01D  and  EE2->GiG  ate  r.ot  applicable  because  this  implementation 
does  not  support  the  instantiation  of  DIRECT_IO  with  unconstrained 
record  tvpes  unless  a  maximum  element  size  is  specified  in  the  FOPH 
parameter  of  the  CREATE  procedure.  This  instantiation  is  rejected 
by  this  compiler. 


3.6  TEST,  PROCESSIh’C ,  .bh'D  EVALLl-HION  MODIFICATIONS 

It  is  expected  tr.ar  s'^me  te.sts  will  require  modifications  of  code, 
processing,  or  evaluatior.  in  order  to  compensate  for  legitimate 
implementation  behar'ior.  Modifications  are  made  by  the  AVF  in  cases 
where  legitimate  implementation  behavior  prevents  the  successful 
completion  of  a:';  o  the  rv.-i  se )  applicable  test.  Examples  of  such 
modifications  inc lud.- ;  ac.rlM.g  a  l-an.gth  clause  to  alter  the  default  size 
of  a  collection;  splitting  a  Class  3  test  into  subtests  so  that  all 
errors  are  detected:  and  confirming  that  messages  produced  by  an 
executable  test  dem.onstrate  conforming  behavior  that  was  not  anticipated 
by  the  test  (suc'n  -.is  raising  one  exception  instead  of  another). 

Modifications  were  required  for  d  tests. 


that  library  units  can  be  named 
edefined  envirorjnenr .  There  is  no 
dependentlv ;  however,  if  they  are 
library  in  the  order  named,  then 
because  the  function  body  named 
^n:  ill-^gai  redeclaration  of  the 
.FF.D  left  over  from  the  com.pilaticn 


nr.'  n-nc'tr-..  _ SiAwP^  that  is  coded  so  that  it 

needs  e  .t  s  e  r.  1 1 1 1'.'  '..n  I-,;-:!  storage.  Thus,  it  allows  the  maximum 
number  of  frames  to  n aiioc-.ted  in  a  given  amount  of  memory.  The 
Vrdi/VMS  operating  environment  limits  the  number  of  frames  that  an 
exception  can  propagate  to  65,535  frames;  beyond  that  limit  the 
run-time  .structure  of  the  program  is  assumed  to  be  corrupted  and 
the  progr.n:'..  is  aboitec  abnormally.  execution  of  the  program  using 
commer.  nns-.-r  allo.xaticr.  nn.rtas  tvpically  results  in  more  than  65,535 
frames  to  a.'  '..'r,:  a  1  t-^v.v.ination  when  STORAC-E_ERROR  is  then 

cetect-.vi.  This  ‘.Lst  -..'as  i;-.ci',;ded  in  the  normal  batch  command  test 
sequo'.-.tu.  -..ut  p r-ac-; s ; ; .g  •..'as  .-.odified  so  that  the  test  was  executed 


J-  "  o 


in  a  more  limiTed  address  space. 

C34006D  checi:s  that  a  derived  type  inherits  various  properties  from 
the  parent;  the  'SIZE  attribute  is  used  in  the  tests  under 
assurr.pticns  that  are  not  fully  supported  by  the  Ada  standard,  and 
are  subject  to  .ARh  reviev;.  Thus,  an  implementation  is  ruled  to 
have  rh.vst;-  tests  if  the  result  (REPORT . RESULT)  is  PASSED,  or 

if  th.e  r-,  t  is  F.AlLEh  and  the  sole  cause  of  failure  is  indicated 
bv  the  particular  outpttt  of  REPORT .  FAILED  below; 

C340GhD;  "INCORRECT  OBJECT' SIZE" 

This  iitpleta ’.'.tat  lor;  reports  the  above  message  and  only  the  above 
me  s  s  u  ^e . 

3.7  additional  TESTINO  INEORILATICN 
3.7.1  Prevalidatio;; 

Prior  to  validaticu.,  a  set  of  test  results  for  ACVC  Version  1.10 
produced  bv  the  ’.'.hi',  .■'■.da  Version  2.0  compiler  was  submitted  to  the  AVF  by 
the  applicai'.t  for  re'.’ie.’w.  A’c.alvsis  of  these  results  demonstrated  that 
the  co.T.tiler  .sucr^.  ,.■  Iv  re.-ci'C-d  all  applicable  tests,  and  the  compiler 
exhibited  ti.e  e;;p.:ctvd  ;;ehavior  o-.t  all  inapplicable  tests. 


3.7.2  .^est  ..et;'. od 

Testing  of  the  VAX  Ada  Version  2.0  com.piler  using  ACVC  Version  1 . 1C  was 
conducted  ct.-sLzc  bv  a  valiciatior.  team  from  the  AVF.  The  configuration 
in  which  the  t^estir.t  '•■•■as  perform.ed  is  described  by  the  following 
designations  cf  ':.,ard'..'are  and  sotf.^.’are  comoonents ; 


host  cc:ttutc  r  : 


■vc; 


v.a:\  ssoo 

'.'ersicn  5. 
Tool'r.it, 


.  e  r  s  1  o  n 
. .* 21^ •«  r*.cici, 

■.'.•'■Lv  .Ada  Version  2.0 
ACS  LINK 

'.'.■A.'iEL.N'  in  ■com.binaticn  with 

V.AKELN  Ada 


rhe  host  an..d 


--.■ore  linked  via  RC-25  REMOVABLE  DISK. 


IT.  a  t ,  r.  0  _  L  Z  T  1 '.  ■-■ 
team  f  c  r  v  :  . 

'T  a  1  u  0  i  t  1'  -L  .  .  ■ 

requir :  r: :: oc  :  : 
in  their  r.oc:::":- 


ists  -was  taken  on-site  by  the  validation 
at  .-take  use  of  implementation-specific 
it.::  •■.-ritten  to  the  magnetic  tape.  Tests 
prevalidation  testing  were  included 


■on 


ape  . 


TEST 


The  contents  of  the  isatT-'.e r  ic  tap^  -.eere  loaded  directly  onto  the  host 
computer.  .rfrer  ti'.e  test  files  vere  loaded  to  disk,  the  full  set  of 
tests  v.-as  oo..;oil-.;c;  .n.d  linked  on.  the  VAX  8800,  then  all  executable 
im.ages  ocre  •  . .  .o : .  ri d  r  o  tl.e  V.kX  8800  via  RC-25  REMOVABLE  DISK  and 
run.  Resulr.e  t-.-d  iro:::  t:^e  host  computer. 

The  ccoropilci'  -..i-.  ;-.-£ts.-d  usinr  coii.m.and  scripts  provided  by  Digital 
Equipm.en.t  lior;  :  on  .o.od  reviewed  by  the  validation  team.  The  compiler 

was  tested  usinp  th^-  folio-wing  option  settings.  See  Appendix  E  for  a 
com.plete  listi-.'.r,  cf  th.e  compiler  options  for  this  implementation. 


Tests  were  corn-riled,  lir.r.ec.  and  e:;ecuted  using  a  single  com.puter.  Test 
output,  cc.T.p i lat lo:-.  listin.gs,  and  Job  logs  were  captured  on  magnetic 
tape  and  a rc "r, ive d  -at  the  .■‘■.Vr.  Th.e  listings  exam.ined  on-site  by  the 


-was  comoleted  on 
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DECL.AR.-.T10N'  OF  CONFORFLANCE 


Digital  Eciuipniant  Corporation  has  submitted  the  following 
Declaration  of  Conformance  concerning  the  VAX  Ada  Version 
^  .  0  . 


Digital  Equipment  Corporation  is 
validation  and  has  submitted 
conformance  concerning  VAX  Ada. 


currently  engaged  in  an 
the  following  declaration 


Declaration  of  Conformance 

Compiler  Implementer: 

Digital  Equipment  Corporation 

Ada  Validation  Facility: 

National  Institute  of  Standards  and  Technology 

Ada  Compiler  Validation  Capability  Version:  1.10 

Base  Configuration: 

Compiler:  VAX  Ada  Version  2.0 

Host  Configuration: 

VAX  8800  (under  VMS,  Version  5.0) 

Target  Configuration: 

VAX  8800  (under  VMS,  Version  5.0) 

MicroVAX  II  (under  VAXELN  Toolkit,  Version  3.2 
in  combination  with  VAXELN  Ada,  Version  2.0) 


Ada 

of 


1 


Declaration  or  Conformance 


Derived  Compiler  Registration: 

Compiler:  VAX  Ada  Version  2.0 

Host  Configurations: 

MicroVAX  I 
MicroVAX  II 
MicroVAX  2000 
MicroVAX  3500 
MicroVAX  3600 
VAXstation  II 
VAXstation  2000 
VAXstation  3200 
VAXstation  3500 
VAXstation  8000 
VAXserver  3500 
VAXserver  3600 
VAXserver  3602 
VAXserver  6210 
VAXserver  6220 
VAX- 11/7 30 
VAX-11/750 
VAX-ll/7a0 
VAX-11/785 
VAX  6210 
VAX  6220 
VAX  6230 
VAX  6240 
VAX  8700 
VAX  8250 
VAX  8300 
VAX  8350 
VAX  8500 
VAX  8530 
VAX  8550 
VAX  8600 
VAX  8650 
VAX  8700 

VAX  8800  (base  conf iquration ) 

VAX  8810 
VAX  8820 
VAX  8830 
VAX  8840 
VAX  8842 
VAX  8974 
VAX  8978 

Raytheon  Military  VAX  Computer  Mod'-’ 
(all  under  VMS,  Version  5.0' 


Declaration  of  Conformance 


Target  Configuration: 

Same  software  and  configurations  as  Host; 

And  the  following  VAXELN  configurations 

MicroVAX  I 
MicroVAX  II 
MicroVAX  2000  ^ 

MicroVAX  3500 
MicroVAX  3600 
I VAX  620 
I VAX  630 
rtVAX  1000 
rtVAX  3200 
rtVAX  3500 
rtVAX  3600 
rtVAX  8550 
rtVAX  8700 
KA62  0 
KA80  0 

VAX-11/725 
VAX-11/730 
VAX-11/750 
VAX  6210 
VAX  6220 
VAX  6230 
VAX  6240 
VAX  8500 
VAX  8530 
VAX  8550 
VAX  8700 
VAX  8800 
VAX  8810 
VAX  8820 

(all  under  VAXELN  Toolkit,  Version  3.2  in 
combination  with  VAXELN  Ada,  Version  2.0) 
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DeciaraLion  of  Conformance 


All  of  the  processors  listed  above,  including  MicroVAX,  VAXstation, 
and  VAXserver  systems,  are  members  of  the  VAX  family.  The  VAX 
family  includes  multiple  hardware/software  implementations  of  the 
same  instruction  set  architecture.  All  processors  of  the  VAX  family 
together  with  the  VMS  operating  system  provide  an  identical  user 
mode  instruction  set  execution  environment  and  need  not  be 
distinguished  for  purposes  of  validation.  Similarly,  all  VAX  family 
processors  supported  as  VAXELN  Toolkit  targets  provide  an  identical 
user  mode  instruction  set  execution  environment. 

The  Military  VAX  Computer  Model  860  is  an  implementation  of  the  VAX 
architecture  that  is  manufactured  by  Raytheon  Corporation.  This 
implementation  has  been  tested  by  Digital  Equipment  Corporation  for 
conformance  with  the  VAX  Architecture  Standard  and  provides  a  user 
mode  instruction  set  environment  that  is  identical  to  other  members 
of  the  VAX  family. 

The  identical  VAX  Ada  compiler  is  used  on  all  hosts,  and  the 
compiler  has  no  knowledge  of  the  particular  VAX  model  on  which  it  is 
being  executed.  Further,  the  compiler  generates  identical  code  for 
all  targets.  Thus,  the  code  generated  on  any  VAX  host  can  be 
executed  without  modification  on  any  of  the  VAX  targets  listed 
above . 

All  of  the  configurations  listed  under  the  derived  compiler 
registration  section  above  are  equivalent  to  the  base  configuration. 
That  is,  all  applicable  ACVC  Version  1.10  tests  could  be  correctly 
compiled  and  executed  on  any  of  the  configurations  listed. 


15  February  1989 


Senior  Group  Manager 

Software  Development  Technologies 


Bill  KeatiTi'g 
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APPENDIX  F  OF  THE  Ada  STANDARD 


The  only  a  1  loved  iiT’.  pie  mentation  dependencies  correspond  to 
imp  1  err.e  n  t  a  t  i  c  n  -  de  pe  n.der.  t  pragmas,  to  certain  machine  -  dependent 
conventions  as  i.ci.tioned  in.  ci.apter  13  of  the  Ada  Standard,  and  to 
certain  al loved  restrictions  on  representation  clauses.  The 
implementation- dependent  charac teris tics  of  the  VAX  Ada  Version  2.0 
compiler,  as  described  in  this  Appendix,  are  provided  by  Digital 
Equipment  Corporation.  Unless  specifically  noted  otherwise,  references 
in  this  appendi:-;  are  to  compiler  documentation  and  not  to  this  report. 
Implementation-specific  portions  of  the  package  STANDARD,  which  are  not 
a  part  of  .Appendix  F,  are: 

package  STAND.AF.D  is 


type  INTEGER  is  range  - 2147483648 .. 2147483647 ; 
type  SH0RT_:NTEGER  is  range  -  32 768 .. 32768  ; 
type  SH0RT_SH:RT_INTEGER  is  range  -128..  127; 

type  FLO.AT  is  digits  6  range  - 1 . 70141E-r38  .  .  1 . 70141E+38  ; 
type  LONG  FLI’.AT  is  digits  15  range 

-S.9SS465674312E-r307.  .  8 . 988465674312E-^307  ; 
type  L0NG_L0NG  FLO.AT  is  digits  33  range 

-5 .94S6  5:47  6  7  861588254287966331400E-^4931.  . 
5 .94  66  5  74  767S615SS254287966331400E-^4931; 


type  DURA.TICi:  is  delta  l.C'E-4  range  - 131072 . 0  ..  131071 . 9999  ; 


end  Si.ANL.-.Rl  ; 
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The  only  allowed  implementation  dependencies  correspond  to 
implementation-dependent  pragmas,  to  certain  machine-dependent 
conventions  as  mentioned  in  chapter  13  of  ANSI/MIL-STD-1815A-1983 , 
and  to  certain  allowed  restrictions  on  representation  classes.  The 
implementation-dependent  characteristics  are  described  in  the 
following  sections  which  discuss  topics  one  through  eight  as  stated 
in  Appendix  F  of  the  Ada  Language  Reference  manual 
(ANSI/MIL-STD-1815A) .  Two  other  sections,  package  STANDARD  and  file 
naming  conventions,  are  also  included  in  this  appendix. 

Portions  of  this  section  refer  to  the  following  attachments; 

1.  Attachment  1  -  Implementation-Dependent  Pragmas 

2.  Attachment  2  -  VAX  Ada  Appendix  F 


(1)  Implementation-Dependent  Pragmas 

See  Attachment  2,  Section  F.l  and  Attachment  1. 


(2)  Implementation-Dependent  Attributes 


Name 

Type 

P' AST_ENTRY 

The  value  of  this 
SYSTEM. AST_HANDLER 

attribute 

i  s 

of 

type 

P'  BIT 

The  value  of  this 
universal  integer. 

attribute 

is 

of 

type 

P'MACHINE_SIZE 

The  value  of  this 
universal  integer. 

attribute 

i  s 

of 

type 
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p ' NULL_PARAMETER  The  value  of  this  attribute  is  of  type 

P. 

P'TYPE_CLASS  The  value  of  this  attribute  is  of  type 

SYSTEM. TYPE  CLASS. 


(3)  Package  SYSTEM 

See  Attachment  2,  Section  F.3. 


(4)  Representation  Clause  Restrictions 
See  Attachment  2,  Section  F.4. 


(5)  Conventions 

See  Attachment  2,  Section  F.6. 


(6)  Address  Clauses 

See  Attachment  2,  Section  F.7. 


(7)  Unchecked  Conversions 

See  Attachment  2,  Section  F.5. 


(8)  Input-Output  Packages 

SEQUENTIAL_IO  Package 

SEQUENTIAL  10  can  be  instantiated  wi*-.h  any  file 
type,  incTuding  an  unconstrained  array  type  or  an 
unconstrained  record  type.  However,  input-output 
for  access  types  is  erroneous. 

VAX  Ada  provides  full  support  for  SEQUENTIAL_IO , 
with  the  following  restrictions  and  clarifications: 

1.  VAX  Ada  supports  modes  IN_FILE  and  0UT_FILE  for 
sequential  input-output.  However,  VAX  Ada  does 
not  allow  the  creation  of  a  file  of  mode 
IN  FILE. 
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2.  More  than  one  internal  file  can  be  associated 
with  the  same  external  file.  However,  with 
default  FORM  strings,  this  is  only  allowed  when 
all  internal  files  have  mode  IN_riLE  (multiple 
readers).  If  one  or  more  internal  files  have 
mode  OUT_FILE  (mixed  readers  and  writers  or 
multiple  writers),  then  sharing  can  only  be 
achieved  using  FORM  strings. 

3.  VAX  Ada  supports  deletion  of  an  external  file 
which  is  associated  with  more  than  one  internal 
file.  In  this  case,  the  external  file  becomes 
immediately  unavailable  for  any  new 
associations,  but  the  current  associations  are 
not  affected;  the  external  file  is  actually 
deleted  after  the  last  association  has  been 
broken . 

4.  VAX  Ada  allows  resetting  of  shared  files,  but  an 

implementation  restriction  does  not  allow  the 
mode  of  a  file  to  be  changed  from  IN^FILE  to 
OUT_FILE  (an  amplification  of  accessing 

privileges  while  the  external  file  is  being 
accessed ) . 


DIRECT_I0  Package 

type  CNT  is  range  0  ..  2147483647; 

TEXT_I0  Package 

type  CNT  is  range  0  ..  2147483647; 

subtype  FIELD  is  INTEGER  range  0  ..  2147483647; 

LCW_LEVEL_IO 

Low-level  input-output  is  not  provided. 
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(9)  Package  STANDARD 

type  INTEGER  is  range  -2147483648  ..  2147483647; 
type  SHORT_INTEGER  is  range  -32768  ..  32767; 
type  SHORT_SHORT_INTEGER  is  range  -128  ..  127; 

—  type  L0NG_1NTEGER  is  not  supported 

type  FLOAT  is  digits  6; 

type  LONG_FLOAT  is  digits  15; 

type  LONG_LONG_FLOAT  is  digits  33; 

—  type  SHORT_FLOAT  is  not  supported 

type  DURATION  is  delta  l.OE-4 

range  -131072.0  ..  131071,9999; 


(10)  File  Names 

File  names  follow  the  conventions  and  restrictions  of  the 
target  operating  system. 
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ATTACHMENT  1 

Predefined  Language  Pragmas 

This  annex  defines  the  pragmas  LIST,  PAGE,  and  OPTIMIZE,  and 

summarizes  the  definitions  given  elsewhere  of  the  remaining  language- 

defined  pragmas. 

The  VAX  Ada  pragmas  IDENT  and  TITLE  are  also  defined  in  this  annex. 

Pragma  Meaning 

AST_ ENTRY  Takes  the  simple  name  of  a  single  entry 

as  the  single  argument;  at  most  one 
AST_ENTRY  pragma  is  allowed  for  any 
given  entry.  This  pragma  must  be  used 
in  combination  with  the  AST.ENTRY 
attribute,  and  is  only  allowed  after  the 
entry  declaration  and  in  t.he  same  task 
type  specification  or  single  task  as  the 
entry  to  which  it  applies.  This  pragma 
specifies  that  the  given  entry  may  be 
used  to  handle  a  \TvlS  asynchronous 
system  trap  (AST)  resulting  from  a  VMS 
system  service  call.  The  pragma  does 
not  affect  normal  use  of  the  entr}'  (s  .-e 
9.12a). 

CONTROLLED  Takes  the  simple  name  of  an  access  type 

as  the  single  argument.  This  pragma 
is  only  allowed  immediately  within  the 
declarative  part  or  package  specification 
that  contains  the  declaration  of  the 
access  type;  the  declaration  must  occur 
before  the  pragma.  This  pragma  is 
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not  allowed  for  a  derived  1)^6.  This 
pragma  specifies  that  automatic  storage 
reclamation  must  not  be  performed 
for  objects  designated  by  values  of  the 
access  type,  except  upon  leaving  the 
innermost  block  statement,  subprogram 
body,  or  task  body  that  encloses  the 
access  type  declaration,  or  after  leaving 
the  main  program  (see  4.8). 

Takes  one  or  more  simple  names 
denoting  library  units  as  arguments.  This 
pragma  is  only  allowed  immediately 
after  the  context  clause  of  a  compilation 
unit  (before  the  subsequent  library  unit 
or  secondary  unit).  Each  argument  must 
be  the  simple  name  of  a  library  unit 
mentioned  by  the  context  clause.  This 
pragma  specifies  that  the  corresponding 
library  unit  body  must  be  elaborated 
before  the  given  compilation  unit.  If  the 
given  compilation  unit  is  a  subunit,  the 
library  unit  body  must  be  elaborated 
before  the  body  of  the  ancestor  library 
unit  of  the  subunit  (see  10.5). 

Takes  an  internal  name  denoting  an 
exception,  and  optionally  takes  an 
external  designator  (the  name  of  a  \TvIS 
Linker  global  symbol),  a  foim  (AD,A 
or  VMS),  and  a  code  (a  static  integer 
expression  that  is  interpreted  as  a  V.AX 
condition  code)  as  arguments.  A  code 
value  must  be  specified  when  the  form 
is  VMS  ithe  default  if  the  form  is  not 
specified).  This  pragma  is  only  allowed 
at  the  place  of  a  declarative  item,  and 
must  apply  to  an  exception  declared  bv 
an  earlier  declarative  item  of  the  same 
declarative  part  or  package  specification; 
it  is  not  allowed  for  an  exception 
declared  with  a  renaming  declaration. 
This  pragma  permits  an  Ada  exception 
to  be  handled  by  programs  written  in 
other  VAX  languages  (see  13, 9a. 3. 2). 
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Takes  an  internal  name  denoting  a 
function,  and  optionally  takes  an  external 
designator  (the  name  of  a  VMS  Linker 
global  s)nnbol),  parameter  types,  and 
result  type  as  arguments.  This  pragma  is 
only  allowed  at  the  place  of  a  declarative 
item,  and  must  apply  to  a  function 
declared  by  an  earlier  declarative  item 
of  the  same  declarative  part  or  package 
specification.  In  the  case  of  a  function 
declared  as  a  compilation  unit,  the 
pragma  is  only  allowed  after  the  function 
declaration  and  before  any  subsequent 
compilation  unit.  This  pragma  is  not 
allowed  for  a  function  declared  with  a 
renaming  declaration,  and  is  not  allowed 
for  a  generic  function  (it  may  be  given 
for  a  generic  instantiation).  This  pragma 
permits  an  Ada  function  to  be  called 
from  a  program  written  in  another  VAX 
language  (see  13. 9a. 1.4). 

Takes  an  internal  name  denoting  an 
object,  and  optionally  takes  an  external 
designator  (the  name  of  a  VMS  Linker 
global  symbol)  and  size  designator  (a 
VMS  Linker  global  symbol  whose  value 
is  the  size  in  bvtes  of  the  exported 
ot'jectt  as  arcniments.  This  pragma  is 
only  allowed  at  the  place  of  a  declarative 
item  at  the  outermost  level  of  a  !ibrar\’ 
package  specification  or  body,  and 
must  apply  to  a  variable  declared  by 
an  earlier  declarative  item  of  the  same 
package  specification  or  body;  the 
variable  must  be  of  a  type  or  subb-pe 
that  has  a  constant  size  at  compile  time 
This  pragma  is  not  allowed  for  objects 
declared  with  a  renaming  declaration, 
and  is  not  allowed  in  a  generic  unit. 

This  pragma  permits  an  Ada  object  to 
be  referred  to  by  a  routine  written  in 
another  VAX  language  (see  13. 9a. 2. 2). 
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EXPORT_PROCEDURE  Takes  an  internal  name  denoting  a 

procedure,  and  optionally  takes  an 
external  designator  (the  name  of  a  VMS 
Linker  global  symbol)  and  parameter 
types  as  arguments.  This  pragma  is  only 
allowed  at  the  place  of  a  declarative 
item,  and  must  apply  to  a  procedure 
declared  by  an  earlier  declarative 
item  of  the  same  declarative  part  or 
package  specification.  In  the  case  of 
a  procedure  declared  as  a  compilation 
unit,  the  pragma  is  only  allowed  after 
the  procedure  declaration  and  before 
any  subsequent  compilation  unit.  This 
pragma  is  not  allowed  for  a  procedure 
declared  with  a  renaming  declaration, 
and  is  not  allowed  for  a  generic 
procedure  (it  may  be  given  for  a  generic 
instantiation).  This  pragma  permits  an 
Ada  routine  to  be  called  from  a  program 
written  in  another  VAX  language  (see 
13.9a.l.4). 

EXPORT_VALUED_PROCEDURE  Takes  an  internal  name  denoting  a 

procedure,  and  optionally  takes  an 
external  designator  (the  name  of  a  VMS 
Linker  global  symbol)  and  parameter 
riqjes  as  arguments.  This  pragma  is  only 
allowed  at  the  place  of  a  declarative 
item,  and  must  apply  to  a  procedure 
declared  by  an  earlier  declarative 
item  of  the  same  declarative  part  or 
package  specification.  In  the  case  of 
a  procedure  declared  as  a  compilation 
unit,  the  pragma  is  only  allowed  after 
the  procedure  declaration  ,.nd  before 
any  subsequent  compilation  unit.  The 
first  (or  only)  parameter  of  the  procedure 
must  be  of  mode  out.  This  pragma  is  not 
allowed  for  a  procedure  declared  with  a 
renaming  declaration  and  is  not  allowed 
for  a  generic  procedure  (it  may  be  given 
for  a  generi"  instantiation).  This  pragma 
permits  an  Ada  procedure  to  behave  as 
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a  function  that  both  returns  a  value  and 
causes  side  effects  on  its  parameters 
when  it  is  called  from  a  routine  written 
in  another  VAX  language  (see  13. 9a. 1.4). 

Takes  a  string  literal  of  31  or  fewer 
characters  as  the  single  argument.  The 
pragma  IDENT  has  the  following  form; 

pragaa  IDENT  (6trlng_llt«ral} ; 

This  pragma  is  allowed  only  in  the 
outermost  declarative  part  or  declarative 
items  of  a  compilation  unit.  The  given 
string  is  used  to  identify  the  object 
module  associated  with  the  compilation 
unit  in  which  the  pragma  IDENT  occurs. 

EXCEPTION  Takes  an  internal  name  denoting  an 

exception,  and  optionally  takes  an 
external  designator  (the  name  of  a 
VMS  Linker  global  symbol),  a  form 
(ADA  or  VMS),  and  a  code  (a  static 
integer  expression  that  is  interpreted  as 
a  VAX  condition  code)  as  arguments. 

A  code  value  is  allowed  only  when  the 
form  is  VMS  (the  default  if  the  form 
is  not  specified).  This  pragma  is  only 
allowed  at  the  place  of  a  declarative 
item,  and  must  apply  to  an  exception 
declared  by  an  earlier  declarative  item 
of  the  same  declarative  part  or  package 
specification:  it  is  not  allowed  for  an 
exception  declared  with  a  renaming 
declaration.  This  pragma  permits  a 
non-,Ada  exception  (most  notab!\-.  a  \'.A\' 
condition)  to  be  handled  bv  an  ,Ada 
program  tsee  13. 9a. 3.1). 

FUNCTION  Takes  an  internal  name  denoting  a 

function,  and  optionally  takes  an  external 
designator  (the  name  of  a  \TvlS  Linker 
global  symbol),  parameter  t\'pes,  result 
tvpe,  and  mechanism  as  arguments.  The 
pragma  INTERFACE  must  be  used  with 
this  pragma  (see  13.9).  This  pragma  is 
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only  allowed  at  the  place  of  a  declarative 
item,  and  must  apply  to  a  function 
declared  by  an  earlier  declarative  item 
of  the  same  declarative  part  or  package 
specification.  In  the  case  of  a  function 
declared  as  a  compilation  unit,  the 
pragma  is  only  allowed  after  the  function 
declaration  and  before  any  subsequent 
compilation  unit.  This  pragma  is  allowed 
for  a  function  declared  with  a  renaming 
declaration;  it  is  not  allowed  for  a 
generic  function  or  a  generic  function 
instantiation.  This  pragma  permits  a 
non-Ada  routine  to  be  used  as  an  Ada 
function  (see  13.9a.l.l). 

Tadces  an  internal  name  denoting  an 
object,  and  optionally  takes  an  external 
designator  (the  name  of  a  VMS  Linker 
global  symbol)  and  size  (a  VMS  Linker 
global  symbol  whose  value  is  the  size 
in  bytes  of  the  imported  object)  as 
arguments.  This  pragma  is  only  allowed 
at  the  place  of  a  declarative  item  at  the 
outermost  level  of  a  library  package 
specification  or  body,  and  must  apply 
to  a  variable  declared  by  an  earlier 
declarative  item  of  the  same  package 
specification  or  body;  the  variable 
must  be  of  a  h^pe  or  subtj'pe  that  has 
a  constant  size  at  compile  time.  This 
pragma  is  not  allowed  for  objects 
declared  with  a  renaming  declaration, 
and  is  not  allowed  in  a  generic  unit.  Thij 
pragma  permits  storage  declared  in  a 
non-Ada  routine  to  be  referred  to  by  an 
Ada  program  (see  13. 9a. 2.1). 

Takes  an  internal  name  denoting  a 
procedure,  and  optionally  takes  an 
external  designator  (the  name  of  a 
VMS  Linker  global  symbol)  parameter 
types,  and  mechanism  as  arguments. 

The  pragma  INTERFACE  must  be 
used  with  this  pragma  (see  13.9).  This 


pragma  is  only  allowed  at  the  place 
of  a  declarative  item,  and  must  apply 
to  a  procedure  declared  by  an  earlier 
declarative  item  of  the  same  declarative 
part  or  package  specification.  In  the  case 
of  a  procedure  declared  as  a  compilation 
unit,  the  pragma  is  only  allowed  after 
the  procedure  declaration  and  before 
any  subsequent  compilation  unit.  This 
pragma  is  allowed  for  a  procedure 
declared  with  a  renaming  declaration;  it 
is  not  allowed  for  a  generic  procedure 
or  a  generic  procedure  instantiation. 

This  pragma  permits  a  non-Ada  routine 
to  be  used  as  an  Ada  procedure  (see 
13.9a.l.l). 

IMPORT_VALUED_PROCEDURE  Takes  an  internal  name  denoting  a 

procedure,  and  optionally  taker  an 
external  designator  (the  name  of  a 
VMS  Linker  global  symbol),  parameter 
types,  and  mechanism  as  arguments. 

The  pragma  INTERFACE  must  be 
used  with  this  pragma  (see  13.9).  This 
pragma  is  only  allowed  at  the  place 
of  a  declarative  item,  and  must  apply 
to  a  procedure  declared  by  an  earlier 
declarative  item  of  the  same  declarative 
part  or  package  specification.  In  the  case 
of  a  procedure  declared  as  a  compilation 
unit,  the  pragma  is  only  allowed  after 
the  procedure  declaration  and  before 
any  subsequent  compilation  unit.  The 
first  (or  only;  parameter  of  the  procedure 
must  be  of  mode  out.  This  pragma 
is  allowed  for  a  procedure  declared 
with  a  renaming  declaration;  it  is  not 
allowed  for  a  generic  procedure.  This 
pragma  permits  a  non-Ada  routine  that 
returns  a  value  and  causes  side  effects 
on  its  parameters  to  be  used  as  an  Ada 
procedure  (see  13. 9a. 1.1). 

«  INLINE  Takes  one  or  more  names  as  arguments; 

each  name  is  either  the  name  of  a 
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subprogram  or  the  name  of  a  generic 
subprogram.  This  pragma  is  only 
allowed  at  the  place  of  a  declarative 
item  in  a  declarative  part  or  package 
specification,  or  after  a  library  unit  in  a 
compilation,  but  before  any  subsequent 
compilation  unit.  This  pragma  specifies 
that  the  subprogram  bodies  should  be 
expanded  inline  at  each  call  whenever 
possible;  in  the  case  of  a  generic 
subprogram,  the  pragma  applies  to  calls 
of  its  instantiations  (see  6.3.2). 

Takes  one  or  more  names  as  arguments; 
each  name  is  either  the  name  of  a 
generic  declaration  or  the  name  of  an 
instance  of  a  generic  declaration.  This 
pragma  is  only  allowed  at  the  place 
of  a  declarative  item  in  a  declarative 
part  or  package  specification,  or  after  a 
library  unit  in  a  compilation,  but  before 
any  subsequent  compilation  unit.  Each 
argument  must  be  the  simple  name  of 
a  generic  subprogram  or  package,  or  a 
(nongeneric)  subprogram  or  package, 
declared  by  an  earlier  declarative  item 
of  the  same  declarative  part  or  package 
specification.  Tliis  pragma  specifies  that 
inline  expansion  of  the  generic  template 
is  desired  for  each  instantiation  of  the 
named  generic  declarations  or  of  the 
particular  named  instances;  the  oragma 
does  not  apply  to  calls  of  inst  mces  of 
generic  subprograms  (see  12. la). 

Takes  a  language  name  and  a 
subprogram  name  as  arguments.  This 
pragma  is  allowed  at  the  place  of  a 
declarative  item,  and  must  apolv  in 
this  case  to  a  subprogram  declared  by 
an  earlier  declarative  item  of  the  same 
declarative  part  or  package  specification. 
This  pragma  is  also  allowed  for  a  libraiy 
unit;  in  this  case  the  pragma  must  appear 
after  the  subprogram  declaration,  and 
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before  any  subsequent  compilation  unit. 
This  pragma  specifies  the  other  language 
(and  thereby  the  calling  conventions) 
and  informs  the  compiler  that  an 
object  module  will  be  supplied  for  the 
corresponding  subprogram  (see  13.9). 

In  VAX  Ada,  the  pragma  INTERFACE 
is  required  in  combination  with  the 
pragmas  IMPORT. FUNCTION, 
IMPORT.PROCEDURE,  and  IMPORT 
VALUED.PROCEDURE  when  any  of  ' 
those  pragmas  are  used  (see  13.9a.l). 

Takes  one  of  the  identifiers  ON  or  OFF 
as  the  single  argument.  This  pragma  is 
allowed  anywhere  a  pragma  is  allowed. 

It  specifies  that  listing  of  the  compilation 
is  to  be  continued  or  suspended  until  a 
LIST  pragma  with  the  opposite  argument 
is  given  within  the  same  compilation. 

The  pragma  itself  is  always  listed  if  the 
compiler  is  producing  a  listing. 

Takes  either  D.FLOAT  or  G.FLOAT 
as  the  single  argument.  The  default  is 
G.FLOAT.  This  pragma  is  only  allowed 
at  the  start  of  a  compilation,  before 
the  first  compilation  unit  (if  any)  of 
the  compilation.  It  specifies  the  choice 
of  representation  to  be  used  for  the 
predefined  type  LONG.FLOAT  in  the 
package  STANDARD,  and  for  floating 
point  type  declarations  with  digits 
specified  in  the  range  7. .15  (see  3.5.7a). 

Takes  one  or  two  nonnegative  static 
simple  expressions  of  some  integer 
t\'pe  as  arguments.  This  pragma  is  only 
allowed  in  the  outermost  declarative 
part  of  a  library  subprogram;  at  most 
one  such  pragma  is  allowed  in  a  library 
subprogram.  It  has  an  effect  only  when 
the  subprogram  to  which  it  applies  is 
used  as  a  main  program.  This  pragma 
causes  a  fixed-size  stack  to  be  created 
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for  a  main  task  (the  task  associated  with 
a  main  program),  and  determines  the 
number  of  storage  units  (bytes)  to  be 
allocated  for  the  stack  working  storage 
area  or  guard  pages  or  both.  The  value 
specified  for  either  or  both  the  working 
storage  area  and  guard  pages  is  rounded 
up  to  an  integral  number  of  pages.  A 
value  of  zero  for  the  working  storage 
area  results  in  the  use  of  a  default  size;  a 
value  of  zero  for  the  guard  pages  results 
in  no  guard  storage.  A  negative  value  for 
either  working  storage  or  guard  pages 
causes  the  pragma  to  be  ignored  (see 
13.2b). 

Takes  a  numeric  literal  as  the  single 
argument.  This  pragma  is  only  allowed 
at  the  start  of  a  compilation,  before 
the  first  compilation  unit  (if  any)  of  the 
compilation.  The  effect  of  this  pragma  is 
to  use  the  value  of  the  specified  numeric 
literal  for  the  definition  of  the  named 
number  MEMORY.SIZE  (see  13.7). 

Takes  one  of  the  identifiers  TIME 
or  SPACE  as  the  single  argument. 

This  pragma  is  only  allowed  within  a 
declarative  part  and  it  applies  to  the 
block  or  body  enclosing  the  declarative 
part.  It  specifies  whether  time  or  space 
is  the  primary'  optimization  criterion. 

In  VAX  Ada,  this  pragma ’s  only  allowed 
immediately  within  a  declarative  part  of 
a  body  declaration. 

Takes  the  simple  name  of  a  record  or 
array  type  as  the  single  argument.  The 
allowed  positions  for  this  pragma,  and 
the  restrictions  on  the  named  type, 
are  governed  by  the  same  rules  as  for 
a  representation  clause.  The  pragma 
specifies  that  storage  minimization 
should  be  the  main  criterion  when 
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selecting  the  representation  of  the  given 
type  (see  13.1). 

This  pragma  has  no  argument,  and  is 
allowed  anywhere  a  pragma  is  allowed. 

It  specifies  that  the  program  text  which 
follows  the  pragma  should  start  on  a 
new  page  (if  the  compiler  is  currently 
producing  a  listing). 

Takes  a  static  expression  of  the 
predefined  integer  subtype  PRIORTTY  as 
the  single  argument.  This  pragma  is  only 
allowed  within  the  specification  of  a  task 
unit  or  immediately  within  the  outermost 
declarative  part  of  a  main  program.  It 
specifies  the  priority  of  the  task  (or  tasks 
of  the  task  type)  or  the  priority  of  the 
main  program  (see  9.8). 

Takes  an  internal  name  denoting  an 
object,  and  optionally  takes  an  external 
designator  (the  name  of  a  program 
section)  and  a  size  (a  VMS  Linker  global 
symbol  whose  value  is  interpreted  as  the 
size  in  bytes  of  the  exported/imported 
object)  as  arguments.  This  pragma  is 
only  allowed  at  the  place  of  a  declarative 
item  at  the  outermost  level  of  a  library- 
package  specification  or  body,  and  must 
apply  to  a  variable  declared  by  an  earlier 
declarative  item  of  the  same  package 
specification  or  bodv;  the  -/ariable 
must  be  of  a  type  or  subty^je  that  has 
a  constant  size  at  compile  time.  This 
pragma  is  not  allowed  for  an  object 
declared  with  a  renaming  declaration, 
and  is  not  allowed  in  a  generic  unit.  This 
pragma  enables  the  shared  use  of  objects 
that  are  stored  in  overlaid  program 
sections  (see  13. 9a. 2. 3). 

Takes  the  simple  name  of  a  variable  as 
the  single  argument.  This  pragma  is 
allowed  only  for  a  variable  declared  by 
an  object  declaration  and  whose  type 
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is  a  scalar  or  access  type;  the  variable 
declaration  and  the  pragma  must  both 
occur  (in  this  order)  immediately  within 
the  same  declarative  part  or  package 
specification.  This  pragma  specifies  that 
every  read  or  update  of  the  variable 
is  a  synchronization  point  for  that 
variable.  An  implementation  must 
restrict  the  objects  for  which  this  pragma 
is  allowed  to  objects  for  which  each  of 
direct  reading  and  direct  updating  is 
implemented  as  an  indivisible  operation 
(see  9.11). 

Takes  one  or  more  names  as  arguments; 
each  name  is  either  the  name  of  a 
generic  declaration  or  the  name  of  an 
instance  of  a  generic  declaration.  This 
pragma  is  only  allowed  at  the  place 
of  a  declarative  item  in  a  declarative 
part  or  package  specification,  or  after  a 
library  unit  in  a  compilation,  but  before 
any  subsequent  compilation  unit.  Each 
argument  must  be  the  simple  name  of 
a  generic  subprogram  or  package,  or  a 
(nongeneric)  subprogram  or  package, 
declared  by  an  earlier  declarative  item 
of  the  same  declarative  part  or  package 
specification.  Tliis  pragma  specifies 
that  generic  code  sharing  is  desired  for 
each  instantiation  of  the  named  generic 
declarations  or  of  the  particular  named 
instances  (see  12.1b;. 

Takes  a  numeric  literal  as  the  single 
argument.  This  pragma  is  only  allowed 
at  the  start  of  a  compilation,  before 
the  first  compilation  unit  (if  any)  of  the 
compilation.  The  effect  of  this  pragma  is 
to  use  the  value  of  the  specified  numeric 
literal  for  the  definition  of  the  named 
number  STORAGE.UNIT  (see  13.7). 

In  VAX  Ada,  the  only  argument  allowed 
for  this  pragma  is  8  (bits). 


-12  Predefined  Language  Pragmas 


.*  SUPFkESS 


SUPPRESS.  ALL 


IS  SYSTEM.NAME 


Takes  os  arguments  the  identifier  of  a 
check  and  optionally  also  the  name  of 
either  an  object,  a  type  or  subtype,  a 
subprogram,  a  task  unit,  or  a  generic 
unit.  This  pragma  is  only  allowed 
either  immediately  within  a  declarative 
part  or  immediately  within  a  package 
specification.  In  the  latter  case,  the 
only  allowed  form  is  with  a  name  that 
denotes  an  entity  (or  several  overloaded 
subprograms)  declared  immediately 
within  the  package  specification.  The 
permission  to  omit  the  given  check 
extends  from  the  place  of  the  pragma 
to  the  end  of  the  declarative  region 
associated  with  the  innermost  enclosing 
block  statement  or  program  unit.  For  a 
pragma  given  in  a  package  specification, 
the  permission  extends  to  the  end  of  the 
scope  of  the  named  entity. 

If  the  pragma  includes  a  name,  the 
permission  to  omit  the  given  check  is 
further  restricted:  it  is  given  only  for 
operations  on  the  named  object  or  on 
all  objects  of  the  base  type  of  a  named 
type  or  subtype;  for  calls  of  a  named 
subprogram;  for  activations  of  tasks  of 
the  named  task  type;  or  for  instantiations 
of  the  given  generic  unit  (see  11.7). 

This  pragma  has  no  argument  and  is 
only  allowed  follow'ing  a  compilation 
unit.  This  pragma  specifies  that  all  run¬ 
time  checks  in  the  unit  are  suppressed 
(see  11,7). 

Takes  an  enumeration  literal  as  the  single 
argument.  This  pragma  is  only  allowed 
at  the  start  of  a  compilation,  before 
the  first  compilation  unit  (if  any)  of  the 
compilation.  The  effect  of  this  pragma 
is  to  use  the  enumeration  literal  with 
the  specified  identifier  for  the  definition 
of  the  constant  SYSTEM.NAME.  This 


Preaelmed  Language  Pragmas  1-13 


TASK.STORAGE 


TIME.SLICE 


pragma  is  only  allowed  if  the  speciiicd 
identifier  corresponds  to  one  of  the 
literals  of  the  type  NAME  declared  in  the 
package  SYSTEM  (see  13.7). 

Takes  the  simple  name  of  a  tasl  type 
and  a  static  expression  of  some  integer 
type  as  arguments.  This  pragma  is 
allowed  anywhere  that  a  task  storage 
specification  is  allowed;  that  is,  the 
declaration  of  the  task  type  to  which  the 
pragma  applies  and  the  pragma  must 
both  occur  (in  this  order)  immediately 
within  the  same  declarative  part,  package 
specification,  or  task  specification.  The 
effect  of  this  pragma  is  to  use  the  value 
of  the  expression  as  the  number  of 
storage  units  (bytes)  to  be  allocated  as 
guard  storage.  The  value  is  rounded  up 
to  an  integral  number  of  pages;  a  value 
of  zero  results  in  no  guard  storage;  a 
negative  value  causes  the  pragma  to  be 
ignored  (see  13.2a). 

Takes  a  static  expression  of  the 
predefined  fbced  point  type  DURATION 
(in  package  STANDARD)  as  the  single 
arg-jment.  This  pragma  is  only  allowed 
in  the  outermost  declarative  part  of  a 
library  subprogram,  and  at  most  one 
such  pragma  is  allowed  in  a  library 
subprogram.  It  has  an  effect  onlv  when 
the  subprogram  to  which  it  aoplies  is 
used  as  a  main  program.  This  pragma 
specifies  the  nominal  amount  of  elapsed 
time  permitted  for  the  execution  of  a  task 
w'hen  other  tasks  of  the  same  priority  are 
also  eligible  for  execution.  A  positive, 
nonzero  value  of  the  static  expression 
enables  round-robin  scheduling  for  all 
tasks  in  the  subprogram;  a  negative  or 
zero  value  disables  it  (see  9.8a). 


1-14  Predefined  Language  Praa'nas 


TITLE 


Takes  a  title  or  a  subtitle  string,  or  both, 
in  either  order,  as  arguments.  The 
pragma  TITLE  has  the  following  form: 

praga^  TITLE  (tltllng-optlon 
[.tltllag-optlon]) ; 

tltllng-option  :■ 

[TITLE  “>]  ■trlng_llt«ral 
I  [SUBTITLE  ->]  •trlng_llt«ral 

This  pragma  is  allowed  anywhere  a 
pragma  is  allowed;  the  given  strings 
supersede  the  default  title  and/nr  subtitle 
portions  of  a  compilation  listing. 

VOLATILE  Takes  the  simple  name  of  a  variable 

as  the  single  argument.  This  pragma 
is  only  allowed  for  a  variable  declared 
by  an  object  declaration.  The  variable 
declaration  and  the  pragma  must  both 
occur  (in  this  order)  immediately  within 
the  same  declarative  part  or  package 
specification.  The  pragma  must  appear 
before  any  occurrence  of  the  name  of  the 
variable  other  than  in  an  address  clause 
or  in  one  of  the  VAX  Ada  pragmas 
IMPORT.OBJECT,  EXPORT.OBJECT, 
or  PSECT_OBJECT.  The  variable  cannot 
be  declared  by  a  renaming  declaration. 
The  pragma  VOLATILE  specifies 
that  the  variable  may  be  modified 
asvTichronously.  This  pragma  instructs 
the  compiler  to  obtain  the  value  of  a 
variable  from  memory  each  time  it  is 
used  (see  9.11), 
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ATTACHMENT  2 


Implementation-Dependent  Characteristics 


NOTE 

This  appendix  is  not  part  of  the  standard  definition  of  the  Ada 
programming  language. 

This  appendix  summarizes  the  implementation-dependent  characteristics  of 

V  AX  .Ada  by  presenting  the  following: 

•  Lists  of  the  VAX  Ada  pragmas  and  attributes. 

•  The  specification  of  the  package  SYSTEM. 

•  The  restrictions  on  representation  clauses  and  unchecked  type 
conversions. 

•  The  conventions  for  names  denoting  implementation-dependent 
components  in  record  representation  clauses. 

•  The  interpretation  of  expressions  in  address  clauses. 

•  The  implementation-dependent  characteristics  of  the  input-output 
packages. 

•  Other  implementation-dependent  characteristics. 


Implementation-Dependent  Pragmas 

VAX  Ada  provides  the  foUovihng  pragmas,  which  are  defined  elsewhere  in 
the  text.  In  addition,  V.AX  .Ada  '■estricts  the  predefined  language  pragmas 
INLINE  and  INTERF.ACE,  and  provides  alternatives  to  the  pragmas  SHARED 
and  SUPPRESS  (VOLATILE  and  SUPPRESS. ALL).  See  Annex  B  for  a 
descriptive  pragma  summary. 

•  AST.ENTRY  (see  9.12a). 

•  EXPORT.EXCEPTION  tsee  \3.9a.3.2) 


imoiemeniafo'^-DeDenneni  Characteristics  2-1 


•  EXPORT.FUNCTION  (see  13. 9a. 1.4). 

•  EXPORT.OBJECT  (see  13.9a.2.2). 

•  EXPORT.PROCEDURE  (see  13.9a. 1.4). 

•  EXPORT. VALUED. PROCEDURE  (see  13.9a. 1.4). 

•  IDENT  (see  Annex  B). 

•  IMPORT.EXCEPTION  (see  13.9a.3.1). 

•  IMPORT.FUNCnON'  (see  13.9a.l.l). 

•  IMPORT.OBJECT  (see  13.9a.2.1). 

•  IMPORT.PROCEDURE  (see  13.9a.l.l). 

•  IMPORT. VALUED.PROCEDURE  (see  13.9a.l.l). 

•  INLINE.GENERIC  (see  12.1a). 

•  LONG.FLOAT  (see  3  5.7a) 

•  MAIN.STORAGE  (see  13.2b). 

•  PSECT.OBJECT  (see  13.9a.2.3). 

•  SUPPRESS.ALL  (see  11.7). 

•  TASK.STORAGE  (see  13.2a). 

•  TIME.SLICE  (see  9.5a). 

•  TITLE  (see  Annex  B). 

•  VOLATILE  (see  9.11). 


F.2  Implementation-Dependent  Attributes 

VAX  Ada  provides  the  following  attributes,  which  are  defined  elsewhere 
the  text.  See  Annex  A  for  a  descriptive  attribute  summary,-. 

•  AST.ENTRY  (see  9.12a). 

•  BIT  (see  13.7.2). 

•  MACHINE.SIZE  (see  13.7,2). 

•  N'ULL.PARAMETER  (see  1.3), 

•  TiTE.CLASS  (see  13. 7a. 2). 
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F.3  Specification  of  the  Package  System 


pkCkkg*  SYSTEM  ll 

typ*  hake  ll  (VAX.VMS,  VAXELM). 

SYSTEM.MAME  :  eonitiat  MAKE  VAX.VMS; 

STORAGE.UNIT  :  conitint  -  8; 

MEMORY.SIZE  eonitlBt  2*»31-1; 

MAJC.INT  ;  conitaat  :«  2»»31-1; 

MIN_INT  ;  eoBltant  -(2*»31); 

MAX.DIGITS  :  conitint  33: 

MAX.HANTISSA  :  conitint  -31, 

FINE_DEI.TA  :  conitint  2.0*-(-31); 

TICK  :  conitint  10  0«(-2); 

lubtjpi  PRIORITY  ll  INTEGER  ring!  0  . .  16: 

Addriai  typi 

typi  ADDRESS  ll  print! : 

ADDRESS.ZERO  :  conitint  ADDRESS: 

function  (LEFT  :  ADDRESS:  RIGHT  :  INTEGER)  ntum  ADDRESS, 

function  (LEFT  ;  INTEGER:  RIGHT  :  ADDRESS)  ntum  ADDRESS, 

function  (LEFT  :  ADDRESS:  RIGHT  :  ADDRESS)  nturn  INTEGER: 

function  (LEFT  :  ADDRESS:  RIGHT  ;  INTEGER)  ntum  ADDRESS: 

--  function  (LEFT.  RIGHT  :  ADDRESS)  ntum  BOOLEAN: 

--  function  "/='•  (LEFT.  RIGHT  :  ADDRESS)  ntum  BOOLEAN: 

function  '•<"  aEFT.  RIGHT  :  ADDRESS)  ntum  BOOLEAN: 

function  (LEFT,  RIGHT  :  ADDRESS)  ntum  BOOLEAN: 

function  ">"  (LEFT.  RIGHT  :  ADDRESS)  ntum  BOOLEAN: 

function  ">="  (LEFT.  RIGHT  :  ADDRESS)  ntum  BOOLEAN; 

--  Note  that  because  ADDRESS  is  a  prirate  type 

the  functions  and  "/="  are  already  available  and 
do  not  have  to  be  explicitly  defined 

generic 

type  TARGET  ll  private . 

function  FETCH.FROH.ADDRESS  (A  ADDRESS)  nturn  TARGET, 
generic 

type  TARGET  li  prlvitt: 

procedure  ASSIGN_TO_ADDRESS  (A  ADDRESS:  T  TARGET): 

VAX  Ada  floating  point  type  declarations  for  the  VAX 
hardware  floating  point  data  types 

type  F_FL0AT  ll  implemrntatti'n^rlffinfrl, 
type  D_rL0AT  la 

type  G_FL0AT  ll  tmrlemfntntti'n_d'finrd. 
type  H. FLOAT  is 
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typ«  TYPE.CLASS  la  (TYPE.CLASS.EfrUMERATION, 

TYPE.CUSS.IHTEGER. 

TYPE_CLASS_FIXED_POIMT . 

TYPE_CLASS_FLQATIIJG_POIIIT . 

TYPE.CLASS. ARRAY, 

TYPE.CLASS.RECORD . 

TYPE.CLASS.ACCESS . 

TYPE.CUSS.TASK . 

TYPE.CLASS.ADDRESS) ; 

--  AST  bandlar  type 

typa  AST.HANDLER  la  llaltad  prlrata; 

NO.AST.HAWDLER  conatant  AST.HANDLER; 

Non-Ada  axweptlon 

NON.ADA.ERROR  :  axeaptlon; 

--  VAX  hardwara-orlanted  typea  and  functiona 

typa  BIT.ARRAY  la  array  (INTEGER  raaga  <>)  of  BOOLEAN; 
pragaa  PACK (BIT.ARRAY) ; 

aubtypa  BIT.ARRAY.S  la  BIT.ARRAY  (0  7) ; 

aubtypa  BIT.ARRAY.IB  la  BIT.ARRAY  (0  .  15); 

aubtypa  BIT.ARRAY.32  la  BIT.ARPJIY  (0  .  31); 

aubtypa  BIT_ARRAY.64  la  BIT.ARRAY  (0  .  63) ; 

typa  UHSIGNED.BYTE  la  raaga  0  . ,  266 ; 
lor  UNSIGNED.BYTE'SIZE  uaa  8; 

function  "not"  (LEFT  :  UHSIGNED.BYTE)  ratum  UNSIGNED.BYTE; 

function  "and"  (LEFT,  RIGHT  ;  UNSIGNED.BYTE)  ratum  UHSIGNED.BYTE, 

function  "or"  (LEFT,  RIGHT  :  UNSIGNED.BYTE)  raturn  UNSIGNED.BYTE; 

function  "xor"  (LEFT,  RIGHT  UNSIGNED.BYTE)  return  UHSIGNED.BYTE, 

function  TO.UNSIGNED.BYTE  (X  :  BIT.ARRAY.S)  ratum  UNSIGNED.BYTE, 
function  TO.BIT.ARRAY.S  (X  :  UNSIGNED.bYTE)  return  BIT.ARRAY.S ; 

type  UNSIGNED.BYTE.ARRAY  la  array  (INTEGER  range  <>)  of  UNSIGNED.BYTE 

typa  'JNSIGNED.’AORD  li  range  0  65535, 

lor  UNSIGNED.WQRD'SIZE  uae  16, 


function 

"not" 

(LEFT 

UNSIGNED.WORD) 

return 

UNSIGNED.WORD 

function 

"and" 

(LEFT, 

RIGHT 

UNSIGNED.WORD) 

return 

UNSIGNED.WORD 

function 

"or" 

(LEFT, 

RIGHT 

UNSIGNED.WORD) 

rtturn 

UNSIGNED.WORD 

function 

"xor" 

(LEFT, 

RIGHT 

UNSIGNED.WORD) 

return 

UNSIGNED.WORD 

function  TO.UNSIGNED.'AQRD  (X  BIT.ARPJlY.ie)  return  UNSIGNED.aORD ; 
function  T0.BIT_ARRAY.16  (X  .  UNSIGNED.WORD)  return  BIT.ARRAY.ie ; 


type  UNSIGNED .WORD.ARRAY  la  array  (INTEGER  range  <>)  of  UNSIGNED.WORD 

typo  UNSIGNED.LONCWORD  la  range  HIN.INT  HAX.INT, 
for  UNSICNED.LONGWCRD'SIZE  uae  32, 
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Junction  "not"  (LEFT  :  UIISIGHED.LONCWORD)  roturn  UNSIGNED.LOHGWORD , 

function  "and"  (LEFT.  RIGHT  ;  UNSIGHED.LONCWORD)  roturn  UMSIGNEdIlOHGWORD : 

function  "or"  (LEFT.  RIGHT  :  UNSIGBED.LONGWORD)  rotum  UNSIGHED.LONGWORD ; 

Junction  "xor"  (LEFT.  RIGHT  :  UNSIGHED.LONGWORD)  roturn  UNSIGHED.LONGWORD. 

function  TO.UHSIGNED.LONGWQRD  (X  BIT_ARRAY_32) 
return  UNSIGNED.LONGWQRD; 

function  T0.BIT_ARRAY_32  (X  :  UNSIGHED.LONGWORD)  return  BIT_ARRAY_32 ; 

type  UNSIGHED.LONGWORD. ARRAY  ie 

errey  (INTEGER  range  <>)  of  UNSIGHED.LONGWORD: 

type  UNSIGNED.OUADWORD  ie  record 
LO  ;  UNSIGHED.LONGWORD; 

LI  :  UNSIGHED.LONGWORD; 

end  record; 

for  UNSIGNED.QUADWORD'SIZE  use  64; 

function  "not"  (LEFT  :  UNSIGNED.OUADWORD)  return  UNSIGNED.OUADWORD; 

function  "and"  (LEFT.  RIGHT  :  UNSIGNED.OUADWORD)  return  UNSIGNED.OUADWORD; 

function  "or"  (LEFT.  RIGHT  :  UNSIGNED.OUADWORD)  return  UNSIGNED.OUADWORD; 

function  "xor"  (LEFT,  RIGHT  :  UNSIGHED. QUADWORD)  return  UNSIGNED.OUADWORD; 

function  TO.UNSIGNED.QUADWORD  (X  :  BIT.ARRAY_64) 
return  UNSIGNED.QUADWQRD ; 

function  TO.BIT.ARRAY .64  (X  :  UNSIGNED.OUADWORD)  return  BIT.ARRAY .64 . 

type  UNSIGNED.OUADWORD. ARRAY  ie 

array  (INTEGER  range  <>)  of  UNSIGNED.OUADWORD; 

function  TO.ADDRESS  (X  :  INTEGER)  return  ADDRESS ; 

function  TO.ADDRESS  (X  :  UNSIGHED.LDHGWDRD)  return  ADDRESS ; 

function  TO.ADDRESS  (X  ;  unwenal^mleger)  return  ADDRESS ; 

Junction  TO. INTEGER  (X  :  ADDRESS)  return  INTEGER, 

function  TO.UNSIGNED.LONGWORD  (X  :  ADDRESS)  return  UNSIGNED.LONGWQRD, 

function  TO.UHSIGNED.LONGWQRD  (X  AST.HANDLER)  return  UNSIGHED.LONGWORD . 

Conventional  nanea  for  static  subtypes  of  type  UNSIGHED.LONGWORD 


subtype 

UNSIGNED 

.1 

l8 

UNSIGNED. 

LOHGWORD 

rsnge 

0 

2*. 

1-1  , 

subtype  UNSIGNED 

.2 

ll 

UNSIGNED. 

LONGWORD 

rsngs 

0 

,  2** 

2-1  , 

subtype 

UNSIGNED 

.3 

Is 

UNSIGNED. 

LCNGWORD 

range 

0 

2«s 

3  -  ’ 

subtype 

UNSIGNED 

.4 

Is 

UNSIGNED. 

LOHGWORD 

rang# 

0 

2*- 

4  - 1  , 

subtype  UNSIGNED 

.5 

Is 

UNSIGNED - 

LDNGWGRD 

range 

0 

2** 

E  - 1  , 

subtype 

UNSIGNED 

.6 

Is 

UNSIGNED. 

LDNGWCRD 

rang# 

c 

2-. 

e- : . 

subtype 

UNSIGNED 

.7 

Is 

UNSIGNED. 

LONGWORD 

range 

0 

2*. 

7  -  ’ 

subtype 

UNSIGNED 

.8 

Is 

UNSIGNED. 

LONGWORD 

rang# 

0 

2** 

8-1  : 

subtype 

UNSIGNED 

.9 

Is 

UNSIGNED. 

LONGWORD 

range 

0 

2** 

0-  ;  , 

subtype 

UNSIGNED 

-10 

Is 

UNSIGNED. 

LONGWORD 

rang# 

c 

2»* 

1  c  - 1  , 

subtype 

UNSIGNED 

.11 

^s 

UNSIGNED. 

LONGWORD 

range 

0 

2** 

11-1, 

subtype 

UNSIGNED 

.12 

is 

UNSIGNED. 

LONGWORD 

rang# 

0 

2*» 

12-1  , 

subtype 

UNSIGNED 

-13 

18 

UNSIGNED. 

LONGWORD 

range 

0 

2** 

13-1  , 

subtype 

UNSIGNED 

-14 

IS 

UNSIGNED. 

LONGWORD 

rang# 

0 

2** 

14-1  , 

subtype 

UNSIGNED 

-15 

is 

UNSIGNED. 

LONGWORD 

range 

0 

2*« 

15-1, 
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•ubtyp*  UNSIGNED.IO  Is  UNSIGUED.LOMGWORD  rings  0  . 

■Ubtjps  UNSIGNED_17  la  UNSIGHED.LONGWORD  rings  0  . 

subtyps  UNSIGNED.IB  la  UNSIGNED.LONGWORO  rings  0  ..  2»»18-1; 

aubtyps  UHSIGNED.IO  la  UNSIGNED .LOKGWORD  rings  0  . .  2»*10-1: 

aubtyps  UNSIGNED_20  la  UNSIGNED.LOHGVrORD  rings  0  .  2»»20-l; 

aubtyps  UNSICNED_21  la  UNSIGHED.LOHGWORD  rings  0  .  2»*21-l; 

aubtyps  UNSIGNED_22  la  UHSIGNED.LONCWORD  rings  0  .  2*»22-l; 

aubtyps  UNSIGNED_23  la  UNSIGNED.LONGWQRD  rings  0  2**23'1; 

aubtyps  UNSIGNED_24  la  UNSIGNED.LONCNORD  rings  0  .  2»*24-l, 

aubtyps  UNSIGNED_26  la  UNSIGNED.LONGWQRD  rings  0  . .  2**2B-1; 

aubtyps  UNSIGNE0.2e  la  UNSIGNED.LONGWORD  rings  0  ..  2**26-l; 

aubtyps  UNSIGNED.27  la  UNSIGNED.LOHCWORD  rings  0  ..  2»»27-l; 

aubtyps  UNSIGNED _28  la  UNSIGNED_LONG»ORO  rings  0  . .  2**28-l: 

aubtyps  UNSIGHED_20  la  UNSIGNED.LONGWORD  rings  0  ..  2*«2d-l; 

aubtyps  UNSIGNED_30  la  UNSIGNED.LONGtrORD  rings  0  .  .  2»»30-l; 

aubtyps  UNSIGNED_31  la  UNSIGNED.LONGUORD  rings  0  ..  2**31-1; 

Function  lor  obtaining  global  symbol  viluea 

Junction  IMPORT. VALUE  (SYMBOL  :  STRING)  rstum  UNSIGNED.LONCWORD: 

VAX  dsvlcs  and  procsaa  rsglatsr  opentlona 

Junction  READ. REGISTER  (SOURCE  :  UNSIGNED.BYTE)  rstum  UNSIGNED.BYTE ; 

Junction  READ.RECISTEH  (SOURCE  :  UNSIGWED.WORD)  rstum  UHSIGNED.WORD ; 

Junction  READ.REGISTER  (SOURCE  :  UHSIGNED.LONCWORD)  rstum  UNSIGNED.LONCWORD; 

procsdurs  WRITE_REGISTER(SOURCE  :  UNSIGNED.BYTE; 

TARGET  :  out  UNSIGNED.BYTE) ; 
procsdurs  WRITE.REGISTER(SOURCE  :  UHSIGNED.WORD; 

TARGET  :  out  UNSIGNED.WORD) ; 
procsdurs  WRITE.REGISTER (SOURCE  :  UNSIGNED.LONCWORD; 

TARGET  :  out  UNSIGNED.LONCWORD); 

Junction  MFPR  (REC.NUMBER  :  INTEGER)  rstum  UNSIGNED.LONCWORD; 
procsdurs  MTPR  (REG.NUMBER  '  INTEGER; 

SOURCE  :  UNSIGNED.LONCWORD) ; 

VAX  interlocked-inatruction  procedures 

procedure  CLEAR. INTERLOCKED  (BIT 

OLD.VAL'JE 

procedure  SET.INTERLOCKED  (BIT 

OLD.VALL’E 

type  ALIGNED.WCRD  If 

record 

VALUE  :  SHORT. irriEGER. 
end  record: 
lor  ALIGNED.WORD  uas 
record 

It  mod  2 : 
end  record. 

procedure  ADD. INTERLOCKED  (ADDEND  In  SHORT. INTEGER , 

AUGEND  in  out  ALIGNED.WORD, 

SIGN  out  INTEGER). 


In  out  BOOLEUUJ . 
out  BOOLEAN) ; 

In  out  BOOLELAN . 
out  BOOLEAN). 


Irrciementation-DecBnoent  COafacte^'SUCG 


typ«  INSQ.STATUS  If  (OK.NQT.FIRST.  FAIL.NO.LOCK .  OK.FIRST) . 
typ*  REMQ.STATUS  !■  (OK.NOT.EMPTY.  FAIL.NO.LOCK . 

OK.EMPTY.  FAIL.WAS.DJPTY) , 


procwdurw  INSQHI  (ITEM 

In  ADDRESS ; 

HEIAOER 

in  ADDRESS. 

STATUS 

out  INSQ.STATUS) 

proewdurt  REMQHI  (HEADEM 

in  ADDRESS ; 

ITEM 

out  ADDRESS; 

STATUS 

out  REMQ.STATUS) 

procwdurw  INSQTI  (ITEM 

in  ADDRESS ; 

HEADER 

in  ADDRESS; 

STATUS 

out  INSQ.STATUS) 

procwdur*  REMQTI  (HEADER 

in  ADDRESS ; 

ITEM 

out  ADDRESS; 

STATUS 

out  REMQ.STATUS) 

prlT%t« 

--  Not  shown 
•nd  SYSTEM; 


F.4  Restrictions  on  Representation  Clauses 

The  representation  clauses  allowed  in  VAX  Ada  are  length,  enumeration, 
record  representation,  and  address  clauses. 

In  VAX  Ada,  a  representation  clause  for  a  generic  formal  type  or  a  t^'pe 
that  depends  on  a  generic  formal  type  is  not  allowed.  In  addition,  a 
representation  clause  for  a  composite  type  that  has  a  component  or 
subcomponent  of  a  generic  formal  type  or  a  type  derived  from  a  generic 
formal  type  is  not  allowed. 


F.5  Restrictions  on  Unchecked  Type  Conversions 

\‘.-\.\  .Ada  supports  the  generic  tun^iion  L’\'CHECKED_CON’\’ERS10N’  with 
the  toilowing  restrictions  on  the  class  of  t\'pes  invoK’ed: 

•  The  actual  subtc'pe  corresponding  to  the  forma!  t'cpe  TARGET  must  not 
be  an  unconstrained  arrav  fvpe. 

•  The  actual  subtype  corresponding  to  the  formal  type  TARGET  must  not 
be  an  unconstrained  tvpe  with  discriminants 
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F.8  Implementation-Dependent  Characteristics  of 
Input-Output  Packages 


The  V'^AX  Ada  predefined  packages  and  their  operations  are  implemented 
using  VAX  Record  Management  Services  (RMS)  file  organizations  and 
facilities.  To  give  users  the  ma.ximum  benefit  of  the  underlying  VAX  RMS 
input-output  facilities,  V'.AX  .Ada  provides  packages  in  addition  to  the 
packages  SEQUENTIALJO,  DIRECT.IO,  TEXTJO,  and  lO.EXCERTlOKS. 
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and  VAX  Ada  accepts  VAX  RMS  File  Definition  Language  (FDL)  statements 
in  form  strings.  The  following  sections  summarize  the  implementation- 
dependent  characteristics  of  the  VAX  Ada  input-output  packages.  The  VAX 
Ada  Run-Time  Reference  Manual  discusses  these  characteristics  in  more  detail. 


F.8.1  Additional  VAX  Ada  Input-Output  Packages 

In  addition  to  the  language-defined  input-output  packages  (SEQUENTIAL 
lO,  DIRECT_IO,  and  TEXT_IO),  VAX  Ada  provides  the  following  input- 
output  packages; 

•  RELATIVE.IO  (see  14.2a.3). 

•  INDEXED.IO  (see  14.2a.5). 

•  SEQUENTIAL.MIXED.IO  (see  14.2b.4). 

•  DIRECT.MIXEDJO  (see  14.2b. 6). 

•  RELATIVE. MIXEDJO  (see  14.2b. 8). 

•  INDEXED.MIXED.IO  (see  14.2b. 10). 

VAX  Ada  does  not  provide  the  package  LOW.LEVEL.IO. 


F.8.2  Auxiliary  Input-Output  Exceptions 

V'AX  Ada  defines  the  exceptions  needed  by  the  packages  RELATIVE.IO, 
INDEXED.IO,  RELATTVE.MIXED.IO,  and  INDEXED.MIXED.IO  in  t"he 
package  AUX.IO.EXCEPTIONS  (see  14.5a;. 


F.8.3  Interpretation  of  the  FORM  Parameter 

The  value  of  the  FORM  parameter  for  the  OPEN  and  CRE.ATE  procedures 
of  each  input-output  package  may  be  a  string  whose  value  is  interpreted  as  a 
sequence  of  statements  of  the  V.AX  Record  Management  Serv'ices  (RMS)  File 
Definition  Language  (FDL),  or  it  may  be  a  string  whose  value  is  interpreted 
as  the  name  of  an  external  file  containing  FDL  statements. 

The  use  of  the  FORM  parameter  is  described  for  each  input-output  package 
in  chapter  14.  For  information  on  the  default  FORM  parameters  for  each 
VAX  Ada  input-output  package  and  for  information  on  using  the  FORM  pa¬ 
rameter  to  specify  external  file  attributes,  see  the  VAX  Adn  Run-Time  Reference 
Manual.  For  information  on  FDL,  see  the  Guide  fr  VMS  File  Applications  and 
the  VMS  File  Definition  Lan^fuaf’e  Facilitij  Manual 
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F.8.4  Implementation-Dependent  Input-Output  Error  Conditions 


As  specified  in  section  14.4.  VAX  Ada  raises  the  following  language-defined 
exceptions  for  error  conditions  that  occur  during  input-output  operations; 
STATUS, ERROR,  MODE.ERROR,  NAME.ERROR,  USE.ERROR,  END, 
ERROR,  DATA,ERROR  and  LAYOUT, ERROR.  In  addition,  VAX  Ada  raises 
the  following  exceptions  for  relative  and  indexed  input-output  operations: 
LOCK, ERROR,  EXISTENCE, ERROR,  and  KEY, ERROR.  VAX  Ada  does  not 
raise  the  language-defined  exception  DEVlCE_ERROR;  device-related  error 
conditions  cause  the  exception  USE_ERROR  to  be  raised. 

The  exception  USE,ERROR  is  raised  under  the  following  conditions; 

•  If  the  capacity  of  the  external  file  has  been  exceeded. 

•  In  all  CREATE  operations  if  the  mode  specified  is  IN,FILE. 

•  In  all  CREATE  operations  if  the  file  attributes  specified  by  the  FORM 
parameter  are  not  supported  by  the  package. 

•  In  all  CREATE,  OPEN,  DELETE,  and  RESET  operations  if,  for  the 
specified  mode,  the  environment  does  not  support  the  operation  for  an 
external  file. 

•  In  all  NAME  operations  if  the  file  has  no  name. 

•  In  the  WRITE  operations  on  relative  or  indexed  files  if  the  element  in  the 
position  indicated  has  already  been  written. 

•  In  the  DELETE_ELEMENT  operations  on  relative  and  indexed  files  if  the 
current  element  is  undefined  at  the  start  of  the  operation. 

•  In  the  UPDATE  operations  on  indexed  files  if  the  current  element  is 
undefined  or  if  the  specified  kev  violates  the  external  file  attributes. 

•  In  the  SET_LINE_LENGTH  and  SET_PAGE. LENGTH  operations  on  text 
files  if  the  lengths  specified  are  inappropriate  for  the  e.xterna!  file. 

•  In  text  files  if  an  operation  is  attempted  that  is  not  possible  for  reasons 
that  depend  on  characteristics  of  the  external  tile. 

The  exception  N.A.ME_ERROR  is  raised  as  specified  in  section  14,4;  bv  a  call 
of  a  CRE.ATE  or  OPEN  procedure  if  the  string  given  for  the  N.AME  parameter 
does  not  allow  the  identification  of  an  external  file.  In  \'AX  Ada,  the  value 
of  a  NAME  parameter  can  be  a  string  that  denotes  a  \'MS  file  specification 
or  a  VMS  logical  name  (in  either  case,  the  string  names  an  external  file).  For 
a  CREATE  procedure,  the  value  of  a  NAME  parameter  can  also  be  a  null 
string,  in  which  case  it  names  a  temporarx'  external  file  that  is  deleted  when 
the  main  program  exits.  The  V.AX  Aiin  Riiii-Tinic  Reference  .Mniiiinl  explains  the 
naming  of  external  files  in  nmre  detail. 
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F.9  Other  Implementation  Characteristics 


Implementation  characteristics  relating  to  the  definition  of  a  main  program, 
various  numeric  ranges,  and  implementation  limits  are  summarized  in  the 
following  sections. 


F.9.1  Definition  of  a  Main  Program 

A  main  program  can  be  a  library  unit  subprogram  under  the  following 
conditions; 

•  If  it  is  a  procedure  with  no  formal  parameters.  In  this  case,  the  status 
returned  to  the  VMS  environment  upon  normal  completion  of  the 
procedure  is  the  value  1. 

•  If  it  is  a  function  with  no  formal  parameters  whose  returned  value  is  of  a 
discrete  type.  In  ^his  case,  the  status  returned  to  the  VMS  environment 
upon  normal  completion  of  the  function  is  the  function  value. 

•  If  it  is  a  procedure  declared  with  the  pragma  EXPORT_VALUED_ 
PROCEDURE,  and  it  has  one  formal  out  parameter  that  is  of  a  discrete 
type.  In  this  case,  the  status  returned  to  the  VMS  environment  upon 
normal  completion  of  the  procedure  is  the  value  of  the  first  (and  only) 
parameter. 

Note  that  when  a  main  function  or  a  main  procedure  declared  with  the 
pragma  EXPORT_VALUED_PROCEDURE  returns  a  discrete  value  whose  size 
is  less  than  32  bits,  the  value  is  zero  or  sign  extended  as  appropriate. 


F.9. 2  Values  of  Integer  Attributes 

The  ranges  of  values  for  integer  t\-pes  declarec.  in  the  package  ST.-.N’D.-aRD 
are  as  follows: 

SHORT.SHORTJNTECER  -U'  l:: 

SHORTJN'TEGER  -jZreS  ..  3;7c7 

INTEGER  -;U748,764k  21^7483647 

For  the  packages  DIRECT.IO.  REL.ATlVE_IO,  5EQUENTIAI._MlXED_IO. 
DIRECT_MIXED_IO,  RELATlVE.MIXED.Fo,  INDEXED.MIXED.IO,  and 
TEXT_10,  the  ranges  of  values  for  the  types  COUNT  and  POSlTIVE_COUNT 
are  as  follows: 
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COUNT  0  ..  2147483647 

POSITIVE.COUNT  1  ..  2147483647 

For  the  package  TEXT_IO,  the  range  of  values  for  the  type  FIELD  is  as 
follows: 

FIELD  0  ..  2147483647 


F.9.3  Values  of  Floating  Point  Attributes 


Attribute 

F.floating  value  and  approximate  decimal  equivalent 
(where  applicable) 

DIGITS 

6 

MANTISSA 

21 

EMAX 

84 

EPSILON 

16ir0.1000_0CC#e-4 

approximately 

9.53674E-b7 

SMALL 

16#0.8(X)0.000i»e-21 

approximately 

2.58494E-26 

LARGE 

16#0.FFFF.F80#e  +  21 

approximately 

1.93428E  +  25 

SAFE.EMAX 

127 

SAFE.SMALL 

16#0.1000.000#e-31 

approximately 

2.93874E-39 

SA"E,LARGE 

16#0.7FFF.FC0)'e  +  32 

approximately 

1.70141E  +  38 

FIRST 

-16<»0.7FFF.FF8#e  +  32 

approximately 

-l.ZONIE-i-SS 

LAST 

16*0.7FFF.FF8*e-‘-32 

approximately 

1. 701 41 E -I-?? 

MACHINE. RADIX 

*7 

MACHINE.MANTISS-' 

24 

MACHINE.EMAX 

127 

MACHINE.EMIN 

-127 

MACHINE.ROUNDS 

T  rue 

MACHINE.OVERFLOWS 

True 
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Attribute 

D.floating  value  and  approximate  decimal  equivalent 
(where  applicable) 

DIGITS 

9 

MANTISSA 

31 

EMAX 

124 

EPSILON 

approximately 

1 6#0 . 4000.0000.0000.000#e  -7 

9.3132257461548E-ld 

SMALL 

approximately 

16#0.8(XX).(XXX)_(X)00_(X)0#e-31 

2.350988701644^-38 

LARGE 

approximately 

16#O.FFFF.FFFE.OOOO.OOO#e  +  31 

2.12676479'22655E  +  37 

SAFE.EMAX 

127 

SAFE.SMALL 

approximately 

16#0. 1000.0000.0000.000#e-31 

2.9387358770557E-39' 

SAFE.LARGE 

approximately 

16#0. 7FFF.FFFF.OOOO.OOO#e  +  32 

1. 701 411 83381 24E  + 38 

FIRST 

approximately 

-1 6»0.7FFF.FFFF_FFFF.FF8*e  +  32 
-l,70l4118346047E  +  38 

LAST 

appiC/Aimately 

1 6^0,7FFF.FFFF.FFFF.FF5/'e  *  32 

1.7014n8346047’E  +  38 

MACHINE.RADIX 

2 

MACHINE.MANTISSA 

56 

MACHINE.EMAX 

127 

MACHINE.EMIN 

-127 

MACHINE.ROUNDS 

True 

MACHINE.OVERFLOWS 

True 

Attribute 

G_floating  value  and  approximate  decimal  equivalent 
(where  applicable) 

DIGITS 

15 

MANTISSA 

51 

EMAX 

20- 

EPSILON 

1  h«0,4000.000(i_0000_00»e- 1 2 

approximately 

8.SR17841<a7001E-16 
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Attribute 

C.floating  value  and  approximate  decimal  equivalent 
(where  applicable) 

SMALL 

1 6#0.8000.0000.0000.00*e-51 

approximately 

1.944692274332E-62 

LARGE 

1 6#0.  FFFF.FFFF.FFFF.EODe  +  51 

approximately 

2.57n0087'0814E'-t-61 

SAFE.EMAX 

1023 

SAFE.SMALL 

16#0.1000.0000.0000.00#e-255 

approximately 

5.562684646268E-309’ 

SAFE  LARGE 

16#0.7FFF.FFFF.FFFF.F0i“e  +  256 

approximately 

8.988465674312E  +  307 

FIRST 

-16#0.7FFF.FFFF.FFFF.FC*c+  256 

approximately 

-8.988465674312E  +  307 

LAST 

16#0.7FFF.FFFF.FFFF.FC#e  +  256 

approximately 

8.988465674312E+307 

MACHINE.RADIX 

2 

MACHINE.MANTISSA 

53 

MACHINE.EMAX 

1023 

MACHINE.EMIN 

-1023 

MACHINE.ROL’NDS 

True 

MACHINE.OVERFLOWS 

True 

Attribute 

DIGITS 

MANTISSA 

EMAX 

EPSILON 

approximatelv 

SMALL 

approximately 

LARGE 

approximately 

SAFE.EMAX 


H_floating  value  and  approximate  decimal  equivalent 
(where  applicable) 

33 

111 

4-;^ 

1  e,<<0 . 4000.0000 ,0000 ,0000,0000 .0000. OOOO.O'e  - 1" 

7 . 7037 1 97775480434 1 2:23° 1 1 770339  7E - 34 

1 6'0. 8000.0000.0000.0000, 0000.0000.0000.0'e - III 
1 . 100656821463’7918210934318020936’E-  134 

1 6*0. FFFF  FFFF.FFFF.FFFF.FFFF.FFFF.FFFE.O*e -  111 
4 .5427420268475430659332737993000E  *  1 33 

16383 
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Attribute 

H.floating  value  and  approximate  decimal  equivalent 
(where  applicable) 

SAFE.SMALL 

approximately 

16«0.1000.0()00.0000.0000.0000.0000.0000.0«-e-4095 

8.40525785778023376’565t»b945433044E-4933 

SAFE.LARCE 

approximately 

16#0.7FFF_FFFF.FFFF.FFFF.FFFF.FFFF.FFFF.0#e  +  4096 
5.9486574767861588254287966331 400E  +  4931 

FIRST 

approximately 

-16#0.7FFF.FFFF.FFFF.FFFF.FFFF.FFFF.FFFF.C^e  +  4096 
-5.9486574767861588254287966331400E+4931 

LAST 

approximately 

16il'0.7FFF.FFFF_FFFF.FFFF.FFFF.FFFF.FFFF_C#e  +  4096 
5.94865747678615882542879k331400E  -e  4931 

MACHINE.RADIX 

2 

MACHINE.MANTISSA 

113 

MACHINE.EMAX 

16383 

MACHINE.EMIN 

-16383 

MACHINE.ROUNDS 

True 

MACHINE.OVTRFLOWS 

True 

F.9.4  Attributes  of  Type  DURATION 


The  values  of  the  significant  attributes  of  the  type  DURATION  are  as  follows 


DURATION -DELTA 
DURATION -small 
DURATION -FIRST 
DURATION -LAST 
DURATION -LARGE 


l.OOOOOE-04 

2-u 

-131072.0000 
131071 .9^0 

1 .31 071 99«>9389e484375E  -r  05 


F.9.5  Implementation  Limits 


Limit  Description 

52  Mflvinuim  number  of  formal  rarameters  in  a  subprogram  or  enfn- 

declaration  that  ore  of  an  unconstrained  record  type 

'’55  Maximum  identifier  length  (number  of  charactersi 

255  Maximum  number  of  iharacters  in  a  source  line 
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Limit 


Description 

245  Maximum  number  of  discriminants  for  a  record  type 

246  Maximum  number  of  formal  parameters  in  an  entry  or  subprogram 

declaration 

255  Maximum  number  of  dimensions  in  an  array  type 

1023  Maximum  number  of  library  units  and  subunits  in  a  compilation 

closure' 

4095  Maximum  number  of  library  units  and  subunits  in  an  execution 

closure* 

32757  Maximum  number  of  objects  declared  with  the  pragma  PSECT.OBIECT 

65535  Maximum  number  of  enumeration  literals  in  an  enumeration  type 

definition 

65535  Maximum  number  of  characters  in  a  value  of  the  predefined  type 

STRING 

65535  Maximum  number  of  frames  that  an  exception  can  propagate 

65535  Maximum  number  of  lines  in  a  source  file 

2^'  —  1  Maximum  number  of  bits  in  any  object 

'The  compilation  closure  of  a  given  unit  is  the  total  set  of  units  that  the  given  unit  depends 

on,  directly  and  indirectly. 

-The  execution  closure  of  a  given  unit  is  the  compilation  closure  plus  all  associated  secondary 

units  (library  bodies  and  subunits). 
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APPENDIX  C 


TEST  FAP.AMETERS 


Certain  tests  ir.  the  ACVC  ir.arie  use  of  implementation- dependent  values, 
such  as  the  may. iitum  length  of  an  input  line  and  invalid  file  names.  A 
test  that  makes  use  of  siicli  values  is  identified  by  the  extension  .TST 
in  its  file  name.  Actual  values  to  be  substituted  are  represented  by 
names  chat  begin  vith  a  dollar  sign.  A  value  must  be  substituted  for 


each  of  these  names  before  the  test 
validation  are  given  belov;. 

$ACC_SIZE 

An  integer  literal  whose  value 
is  the  number  of  bits  sufficiettt 
to  hold  any  value  of  ait  access 
type  . 

$BIG_ID1 

Identifier  the  site  of  the 

maximum  input  line  length  with 

varying  last  character. 

$BIG_ID2 

Identifier  the  size  of  the 

maximum  input  line  length  wich 

varying  last  character. 

$BIG_ID3 

Identifier  the  size  of  the 

m.axim’.im  input  line  length  ■■•.'ith 

V  a  r  V  i  n  g  i  d  d  1  e  c  h.  a  r  a  c  t  e  r  . 

SBIG_:iA 

iGfcr.ClIlC  /  Z.i'-r  1  w  02  Or.c 

rriaxiinu:::  ixvGir  lire  l^rr^oh  v;irh 

$BIG_INT_LIT 

An  integer  literal  of  value  29S 
with  enough  leading  zeroes  so 
that  it  is  th.fe  size  of  the 
maximum  I'r.e  length.. 

$big_real_l:t 

A  universal  real  literal  of 
value  690.0  with  enough  leading 
zeroes  to  be  the  size  of  the 


is  run.  The  values  used  for  this 


32 


1. .254  =>  'A' .  255  ->  '1' 


1.  .254  =>  'A'  ,  255  ■=>  '2' 


1. . 127  =>  'A' .  128  =>  ' 3' , 

129. . 255  ->  'A' 


1. .127  =>  'A' ,  128  =>  '4' , 
129  "55  =>  'A' 


1..252  =>  'O',  253.. 255  ->  '298' 


1. .250  =>  '0' ,  251. .255  => 
'690.0' 


C-1 


maxiinun; 


1 1  r.  <? 


$BIG_STRir;Gl 
A  s  tv ir.-^ 

Yields  t: 


•y!'.  icb.  v;hen 

ri/  j.  ^  H-  *  i\  j. . '  o  •- 

■  i  EM  IDI. 


$big_str::;i: 

A  srrii';;;,  ..'-va*  wi.icn  ^nen 
catenareci  so  she  ei:c  of 
BIG_STRIKG1  yields  Che  image  of 
BIG  IDI. 


$ BLANKS 

A  sequence  of  blanks  cvency 
characters  less  chon  the  site 
of  the  maximum  line  lengtli. 

$COUNT__LRST 

A  un '.'e  r  s  ."i  * 

literal  v.-i-ose 

te;it_io,cci':;t'L-.st 

$default_;;e:-;_i  :i.; 

An  1  n  c  c  £  e '/  -  -  -  r  c-  * 


integer 
value  is 


$  D  EFAU  LT_S  T  0  R_l'  h'  I T 

An  integer  liieral  ■•■.'nose  value 
is  SY  -TEM  .  STOF-YGEJJN'IT  . 

$DEFAULT_SY 

syste;;.  svs:'i;:_:m:e. 

^  ^  X  A  *  •-  ^ 


T EMT  11.  F 1 E '  L'-. S  *  . 


$FIXED_::.-iNE 

The  name  of  a  preclotined 
fixed- po  in'  t'-'ne  otner  tnan 
DUR-iTic;;. 

$FLOAT_NM!E 

The  na.'i.e  f  f  a  prcMeiined 
floating-point  tv'.:e  otn.er  than 


1. .195  ->  "A" 


196.. 254  ->  "127,  255  ->  "1 


1. .235  -> 


2  147  483  647 


2*^M1-1 


8 


V 1 V  r 


2.CoV:(.31) 


*'  ^^3  6-47 


NO  SUCH  FIXED  TYPE 


LONG  LONG  FLOAT 


o 


FLOAT,  S;iORT_rLOAT. 

LONG  FLOAT. 


$GREATER_THAN_DUR.-\TION  75_000 . 0 

A  univ0rscii  Vctix  iitict'sl  tiL.aC 
lies  berveen  Ti'FATION  ’  BASE '  L.-.ST 
and  DUFL-.Tl . '  LAST  or  any  value 
in  bLe  rai.L'c-  ri  . 

$GREATER_THAN_DlTLVnON_S.-SE_L.AST  131_073 . 0 

A  universal  real  liberal  bhab  is 
greaber  bhar;  DLR.ATION '  BASE '  LAST  . 


$high_prior:ty 

An  inbeger 
is  bhc-  up bo 
for  bhe  sui.^ 


iberal  '..■hose  value 
or  riife  roucc 
■■pe  SYSTEII.  I'RI0F,.ITY  . 
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$illegal_£;':ter:.'.al_fi le_::a:iei  badchar"®  . ' 

An  enbernal  file  name  '.-.•hich 

conbains  irr/alid  characbers. 

$  I  L  L  E  G  A  L  _  E  >:  T  E  R  N'  A  L  _  F  I  L  E  _  N  A  M  E  2 

THIS  -  FILE -N'.-LYE-YIYLD- BE  -  PERFECTLY -LEGAL- IF- IT- WERE  -  NOT- SO- LONG.  S0_THERE 
An  exbernal  file  name  •.Ynich 

is  boo  long. 


$INT£GER_FIRST  -2147483648 

A  universal  ir.beger  liberal 
vrhose  vaLue  is  INTEL ER '  FIRST . 


u  n  r  c  i’  i  ~  'j  c  ci  ^  ^  _  r  tb  1  u  j.  i  i  o 


for  the  snbr;.'pe 


SYSTEM. PRIORITY 


$MANTISSA_DOC  31 

An  integer  literal  whose  value 
is  SYSTEM.  MYl  MARTI SSA, 


$max_dig:ts  33 

MaxirTiL'.ir  c;:  'it.s  supported  tor 
float  ir.g  - 1":'  lot  tt'pcs  . 


$max_im_le:;  255 

Maximuir,  ir.p'o.t  line  length 
permitted  bv  t’ne  iir.plc-irentation . 


$MA>:_IMT 
A  u 
wh  o  s  e 


ir.  te 
SYS' 


;er  literal 
: EM. MAX  IMT. 


2147483647 


$MAX_INT_PLUS_1 

A  univers.-.l  integer  literal 
whose  value  is  SYSTEM .  MAX'.  Ih'T  t-1. 


2  147  483  648 


$MAX_LEN_I  MT_BAS  ED_LI  T  ERA.L 

A  universal  integer  i>ased 
literal  v.hose  value  is  2=11^= 
with  enoug'ii  leading  zeroes  in 
the  mantissa  to  be  .■L-21_IM_hEK 
long. 


1 .  .  2  -=>  "  2  :  "  ,  3  . 
251. .255  ->  '11: 


$MAX_LER_REA1_EASED_L;TEP^AL  I..2  ->  '16:',  3 

A  universal  real  based  literal  249.. 255  =>  '16; 


whose  value  is  16; r.E;  witn 
enough  lea'.'.ir^t,  zeroes  in  tne 


.250  ->  '0' , 


.  .248  ->  '0' 
F.E' 


APPENDIX  D 

TESTS 


Some  tests  art  v.-;  rhdrav.-n  froii;  tVi*  ACVC  because  they  do  not  conform  to 
the  Ada  Stardarc:.  Ti.a  tol  -.3  rests  had  been  withdrawn  at  the  time 

of  validation  tttsri:u:  for  rr:e  reasons  indicated.  A  reference  of  the 
form  Al-ddddd  is  to  c;:‘;  Ada  ioiv.n.entary . 

A39005G 

This  test  unreasonabl'.  expects  a  component  clause  to  pack  an  array 
component  into  ii  ninimuin  site  (line  30). 

B97102E 

This  test  contains  an  unintended  illegality;  a  select  statement 
contains  a  null  statement  at  tlie  place  of  a  selective  wait  alternative 
(line  31 ) . 

BC3009B 

This  test  •..•ronglr  entpects  that  circular  instantiations  will  be  detected 
in  several  ct  t'r  i  la  tion  units  et'cn  though  none  of  the  units  is  illegal 
with  respect  to  t'ne  unnits  it  depends  on;  by  AI -00256,  the  illegality 
need  not  be  detected  un.til  e;-;ecution  is  attempted  (line  95). 

CD2A62D 

This  test  ■.•.■rongl;.-  requires  t'nat  an  array  object's  size  be  no  greater 
than  10  althoug’.'i  its  subtype's  size  was  specified  to  be  40  (line  137). 

CD2A63A..D,  CD2A6C.---..  ,D,  CD2A'3A..D.  CD2A76A.,D  [16  tests] 

These  tests  wrongly  atteirpt  to  check  the  size  of  objects  of  a  derived 
type  (for  whici.  a  'SIZE  Icr.gth  clause  is  given)  by  passing  them  to  a 
derived  subprogram  v.-hich  i:r.rl Lcitlv  converts  them  to  the  parent  type 
(Ada  standard  c  ,  -  .  .-Aiditionally ,  they-  use  the  'SIZE  length  clause 

and  attribute.  i’.’.ter:  r'-t,;tic;‘.  is  considered  problematic  by  the  WG9 

ARG. 


.t  tasks  •.-.•ill  terminate  while  the  main 
plv  tests  for  tasV:  termination;  this  is 
may  loop  indefinitely  (lines  74,  65, 

CC2B15C  a  CD''2f5C 

These  tests  e:;pect  that  a  '  ST0RA.GE_SIZE  length  clause  provides  precise 
control  over  the  r.'.tmber  of  designated  objects  in  a  collection;  the  Ada 
standard  13.2:15  allows  that  such  control  must  not  be  expected. 

CD2D1:3 

This  test  gi'.--:.'.  a  Slb'.ZZ  r-presentat ion  clause  for  a  derived  fixed-point 
type  (at  lir.-.-  3.  ri-.at  defines  a  set  of  model  numbers  that  are  not 

necessarily  in:  pro.se;:ted  in  the  parent  type;  by  Commentary  AI-00099,  all 


CD2A81G.  :z;a:3'::.  ^ 

These  tests  assune  that 
program  u..t .  s  :.  ....  p  tn. 
not  the  .  a::::  ’..v 

86  6c  96.  t a  -6,  •. :.d  if,  r 


_  T 


model  numbers  o£  a  derived  fixed-point  type  must  be  representable  values 
of  the  parent  type. 

CD5007B 

This  test  wrontlv  expects  an  implicitly  declared  subprogram  to  be  at  the 
address  tiiat  is  specified  for  an  unrelated  subprogram  (line  303). 

ED7004B,  £370051  d  3 .  ED7006C  d  D  [ 5  tests] 

These  tests  check  various  aspects  of  the  use  of  the  three  SYSTEM 
pragmas;  the  .AVO  '..-ithdravs  these  tests  as  being  inappropriate  for 
validation . 

CD7105A 

This  test  requires  that  successive  calls  to  CALENDAR . CLOCK  change  by  at 
least  SYSTE!i .  TICK ;  hovew- r ,  by  Coinmentary  Al-00201,  it  is  only  the 
expected  frecyiencv  of  c’iange  that  must  be  at  least  SYSTEM. TICK 
particular  instances  of  chiange  may  be  less  (line  29)  . 

CD7203B,  &  CD-:07.5 

These  tests  u.se  the  'SIZE  length  clause  and  attribute,  whose 
interpretation  is  considered  problematic  by  the  WG9  ARC. 


CD7205D 

This  test  checks  an  invalid  test  objective;  it  treats  the  specification 
of  storage  to  he  reserved  for  a  task's  activation  as  though  it  were  like 
the  specification  of  storage  for  a  collection. 

CE2107I 

This  test  requires  that  objects  of  two  similar  scalar  types  be 
distinguished  •..•hen  read  from  a  f i  1  e -  - DATA_ERR0R  is  expected  to  be  raised 
bv  an  attempt  tc  re.iri  one  object  as  of  the  other  type.  However,  it  is 
not  clear  c:;actl-.-  ho-.c  the  .•Ida  stan,dard  14,2.4:4  is  to  be  interpreted; 
thus,  this  te:- :  c':;  •  ec  t  ive  is  r.ot  considered  valid.  (line  90) 

CE3111C 

This  test  r-:.qv.  Lr-:e  '.rtain  behavior,  v.-'nen  two  files  are  associated  w’ith 
the  same  cxterx.al  file,  ti.at  '1.0  not  req-uired  by  the  Ada  standard. 

CE33C1A 

This  test  ccnt.air.s  eev-eral  calls  to  E::D__CF_LINE  d  END_OF_PAGE  that  have 
no  para::,- t-er :  calls  r-e  inte-.'.ded  to  specify  a  file,  not  to  refer 

to  ST.A'.'3.b.£D_I.h'PTT  lines  103.  107,  115,  132,  d  136). 

CE3411B 

This  test  rec^.:ir-;-s  tr.at  a  text  file's  column  number  be  set  to  COUNT'LAST 
in  order  to  civeef.  that  L'’'.V3LT_£r.R0R  is  raised  by  a  subsequent  PUT 
operation.  L-'.t  termer  o-peration  -.cill  generally  raise  an  exception 

due  to  a  iaeV:  f  n/a  Liable  disi:  space,  and  the  test  would  thus  encumber 
validation  testi::p. 

E28005C 

This  test  expects  t'nat  tlie  string  TOP  OF  PAGE.  --63"  of  line  204 


will 

203; 

that 


appear  at  the 
but  line  203  r 
tiust  appear  at 


the  top  of  tr...  page  Pragma,  and  it  is  this 


D-3 


APPENDIX  E 


COMPILER  OPTIONS  AS  SUPPLIED  BY 
Digital  Eqiiipiiient  Corporation 

Compiler;  VrC\  Ada  Version  2.0 

ACVC  Version:  1.10 


/ANALYS I S _DATA  o  r  /NOANALYS I S_DATA 

Controls  vhether  a  data  analysis  file  containing  source  code  cross- 
referencing  and  static  analysis  information  is  created.  The 
default  is  /NOAN.ALYSIS_DA.TA. 

/CHECK  or  .'.NOCHECK 

Controls  whether  run-time  error  checking  is  suppressed.  (Use  of 
/NOCHECK  is  equivalent  to  giving  all  possible  suppress  pragmas  in 
the  source  program.)  The  default  is  /CHECK  (error  checking  is  not 
suppressed  except  by  pragma) . 

/C0PY_S0URCE  or  /N0C0PY_S0URCE 

Controls  •..■hether  the  source  being  compiled  is  copied  into  the 
com.pilation  library  for  a  successful  compilation.  The  default  is 

/copy_scyr:e. 

/DcdoG  or  or  /ijco*.G=option 

where  op  tier;  is  one  of 

ALL.  EY;L' i..-;  c  r  !Mi'Y.''l ' Lf  ,  T; Y.CE5.AC'.’  or  !.'0TRA.CEBAC:’ ,  or  N'ONE 

Controls  t..-i  ii.rlusioi;  ci  uclDuaging  symbol  table  information  in  the 
compiled  object  module.  "The  default  is  /DEBUG  or,  equivalently, 

/  1/  ij  w  V  — ^  . 


/DIAGNOSTICS,  /DlAGNOSTICS=f ilename ,  or  /NODIAGNOSTICS 


Controls  whether  a  special  diagnostics  file  is  produced  for  use 
with  the  VAX  Langc.age  -  Sens  i  t  ive  Editor  (a  separate  DIGITAL 
product,'.  Tile  default  is  /N'JDIAGNOSTICS . 

/ERROR_LI.';iT-n 

Controls  the  number  of  error  level  diagnostics  that  are  allowed 
within  a  single  compilation  unit  before  the  compilation  is  aborted. 
The  default  is  /ERR0R_LI.HIT=3C . 

/LIBR.ARY=d  i  rectory  -  name 

Specifies  che  iurme  of  rlie  Aria  compilation  library  to  be  used  as  the 
context  for  the  compilation.  The  default  is  the  library  last 
establis;;ed  bv  :he  .ACS  SET  LIBRARY  command. 

/LIST,  /■L:ST=fiiena;i:<.- .  or  /.NOLI ST 

Controls  v.-hether  a  listing  file  is  produced.  /LIST  without  a 
filename  uses  a  default  filename  of  the  form  sourcename . LIS ,  where 

sourcenaire  is  the  name  of  tlie  source  file  being  compiled.  The 

default  is  .CCOLIST  (for  both  interactive  and  batch  mode). 

/.'■LACH:NE_CCDE  or  /NOMACHINE_CODE 

Controls  •..hetiier  generated  machine  code  (approximating  assembler 
notation.  is  included  in  the  listing  file,  if  produced.  The 

default  is  :;oxachi::e_code . 

,'N0TE_S0Yr. 'E  or  /;;uNCTE_SOYRCE 

ti'.e  file  .specification  of  the  current  source  file 
com.pilaticn  library.  (This  copy  is  used  for 
:d  rr  com.pilation  features.)  The  default  is 


Controls  ' .  ' .  s  e  :  . .  e  r  s  u  *  ...  o 
producing  tiie  compiled 
(/NOOPTIXIZE  is  pri:::arily  o 

/shoy=pceta.::!l:ty  or  ,x:cshoy 

Controls  a  r  o r  ‘  a-,  i  1  i f  summary  is  included  in  the  listing. 

p  H  it.  pj '  •  *-  ;  £ !  1  _  ■  ~V '  : .  T.\  .i.  ...  i  . 


r  ir.  inirr.al  optimization  is  applied  in 
code.  The  default  is  /OPTIMIZE, 
f  use  in  combination  with  /DEBUG.) 


/WARNI.'<GS=  car egorv  ;  d{i s r  ina r  ion  ,  .  .  .  ) 

Specifies  v.nicii  categories  of  informational  and  warning  level 
messages  are  c.ispla'.'rc:  ter  v;i-.ich  destinations.  The  categories  can 

be  s .  ,  supplemental,  compilation_notes  and 

ST.UTUS .  Ube  ttir.jt  to;.:,  ran  be  ALL,  NONE  or  combinations  of 
TEPU-li;U-\p .  or  L'i.-.U;.  jSTIUS  .  The  default  is 

■..-.-.R:;  1  ;;GS=  UARN  :  all  . leak :  all,  SUPP  :  all ,  COMP : NONE ,  STAT :  LIST) 
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